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EDITORIAL 



THIS MONTH'S MAGAZINE 

The magazine is again packed with articles and programs. I would particularly 
draw your attention to the three excellent games and to the article and program on 
three dimensional graphics (3D Rotation), which again illustrates the quality of the 
computer graphics that can be achieved with the Electron. There are also further 
articles in the two series on Electron Graphics and Writing a Games Program and many 
more interesting and useful items in this issue. 

ADD-ONS FOR THE ELECTRON 

In the first issue of ELBUG we reported that SIR Computers of Cardiff were 
planning add-on units for the Electron. These are now promised for early this year, 
and the first product is likely to be a ROM expansion board at £40 + VAT. This will 
then be followed by a unit with printer and joystick connections, with further 
add-on units to follow. 



Another 
Interface 
additional 
depending 
Micro User 
Technology 



Acorn 
Electron 



company, Solidisk Technology Ltd., is also planning a General Purpose 
(GPI), which will provide a printer port, a user port, joystick port and 
ROM sockets for the Electron. The cost is likely to be from £20 upwards 
on the options included. A prototype unit was on demonstration at the 
Show in December. Enquiries or comments should be sent to Solidisk 
Ltd. at 17 Sweyne Avenue, Southend-On-Sea , Essex SS2 5JJ. 

are themselves planning a sophisticated multifunction interface for the 
to be released later this year, but no details are available as yet. 



RETURN OF THE DIAMOND 

During pasting {the process of actually assembling the original material for our 
printers) part of a line was accidentally omitted for this program. The full and 
correct line is as follows: 

500 DATA a mean looking gremlin, GREMLIN, 4 

We are sorry if this stopped you from running the program. In this issue of ELBUG, 
as promised, we have included a map of the various locations referred to in this 
adventure game. 

YOUR LETTERS 

This month we have been able to publish some of the first letters we have 
received from readers of ELBUG. We hope to make POSTBAG a regular feature of the 
magazine and look forward to hearing from more of you in the future. If you do write 
to us, then please make sure you address your letter to our editorial address. 



NEXT MONTH'S ISSUE OF ELBUG 

This is just to remind you that this issue of ELBUG covers both January 
February, and that the next issue of the magazine will be the March issue. 



and 



Mike Williams 
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MARS LANDER 

by Alan Webster 



Mats Lander is a version of the 
popular moon lander game in which the 
player attempts to navigate his space 
craft through a mass of meteors to land 
it softly on the landing pad. You 
control the horizontal and vertical 
speed of the craft. The game runs in 
mode 5 and makes good uses of both 
colour and sound. 

The player can choose the level of 
difficulty for the game - the more 
difficult the gatie the more sensitive 
the controls and the rougher the 
terrain (ranging from quite smooth to 
very rough) . You have 1 5 seconds to 
land the craft before your fuel runs 
out. 



The controls are given in the 

program, and for those of you who 

find the game too easy (in excess 

of 2000 points) you might like to 

change the gravity factor by 

altering line 200 to: 



This program is adapted from a 
version for the BBC micro first 
published in BEEBUG Vol.2 No. 4. 



REM PROGRAM MARS LANDER 

REM AUTHOR ALAN WEBSTER 

REM VERSION E1.0 

REN ELBUG JAN/FEB 1984 

REM PROGRAM SUBJECT TO COPYRIGHT 



200 N%=N%-(G%/1.95-(1A%/10 
)):IF N%>80 THEN N%=80 




10 
20 
30 
40 
50 
60: 

70 ON ERROR GOTO 750 
80 PR0Cchars:PR0Carrays:M0DE4 
90 PRINTTAB(14,2)"Mars Lander"; TAB (1 
2,3) "by Alan Webster" 

100 PRINTTAB(5, 10) "Difficulty. 1-8 (1 
=Easy) ?":G%=GET:IFG%<49 OR G%>56 GOTO 
100 

110 G%=G%-47:dead=FALSE:SC%=0 
120 L%=G%*6:PRINTTAB(13,19)"Z - Left" 
;TAB(13,20)"X - Right";TAB(8, 21 ) "RETURN 
- Thrust";TAB(9,23)"Press any key":i=G 
ET 

130 MODE5:A2%=100:VDU5:REPEAT:CLS:PRO 
Cs tars :PROCmeteors:X%=RND (900) :Y%=1 000: 
M%=0:N%=1 :landed=FALSE: PROCscene 
140 TIME=0: REPEAT: OX%=X%:OY%=Y% 
150 IF INKEY-98 IF X%>32 M%=M%-G% 
160 IF INKEY-67 IF X%<1210 M%=M%+G% 
170 X%=X%+(M%/2):IF X%<32 X%=32 
180 IF X%>1210 X%=1210 
190 M%=M%+(SGN(M%)/10):IF INKEY-74 N% 
=N%-KJ% 

200 N%=N%-(G%/10):IF N%>80 N%=80 
210 Y%=Y%-8+N%:IF OX%=X% IF OY%=Y% OD 
TO 230 

220 MOVE OX%,OY%:QCOL0,0:VDU224:MOVE 
X%,Y%:(£OL0,3:VDU224 

230 R%=POINT(X%+55,Y%-31):Rl%=POINT(X 
%,Y%-31):SOUND0,-10,4,1:IF R%=1 dead=TR 
UE 

240 IF R1%=1 dead=TRUE 
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250 IF R%=2 AND Rl%=2 landed=TRUE 

260 IF TIME>1500 dead=TRUE 

270 UNTIL landed OR dead: IF N%<1 dead 
=TRUE 

280: 

290 G%=G%+1 : IF dead GOT031 

300 SC%=SC%+(1500-TIME) :FORSO%=1TO10 
:SOUNDl, -1 0, 200, "I : SOUND"! ,-1 0,1 00,1: NEXT 

310 L%=L%+4: UNTIL dead:SC%=SC%-l 00: PR 
OCexpl:TIME=0: REPEAT UNTIL TIME>150:*FX 

15 

320 MODE6:PRINTTAB{5,10)"Your Score w 
as :";SC%:TIME=0:REPEAT UNTIL TIME>500: 
RUN 

330: 

340 DEFPROCscene 

350 P%=RND(120)*8:FORA1%=0TO1280STEP8 

:IFA1%=P% S%=A2% 

360 IF A1%>P% IF A1%<(P%+120) PRCCpad 

:GOTO390 

370 GCOL0,1:MOVE A1%,0:DRAW Al%,A2%:A 
2%=A2%+ (RND (L%) - (L%/2) ) : IF A2%<20A2%=20 

380 IFA2%>400 A2%=400 

390 NEXT 

400 ENDPROC 

410: 

420 DEFPROCpad 

430 GCOL0,2:PLOT69,Al%,S%:PLOT69,Al%, 

S%+4:<XOL0,1:MOVE Al%,0:DRAW AH,S%-4:G 
COL0,0:MOVE Al%,S%+8:DRAW Al%,S%+72 
440 ENDPRCC 

450: 

460 DEFPRCCchars 

470 VDU23, 224, 0,24, 60, 255, 102, 60, 66,1 

29:VDU23,225,20,126,124,126,254,124,28, 

48 

480 ENDPROC 

490: 

500 DEFPROCarcays 

510 ENVELOPE 1,3,0,0,0,0,255,0,126,0, 
0,-126,126,126 



520 DIM Z%(8),Z2%(8) ,Q% (8) ,Q1%(8) 
530 FOR Z1%=1T08:Q%(Z1%)=RND(12):IF Q 

%(Z1%)>6 Q%(Z1%)=Q%(Z1%)-13 

540 Q1%(Z1%)=RND(12):IF Q1%(Z1%)>6 Ql 

%(ZH)=Q1%(Z1%)-13 

550 NEXT 

560 ENDPRCC 

570: 

580 DEFPRCCexpl 

590 OCOL0,0:MOVEX%,Y%:VDU224:FOR Z6%= 
1T08:Z%(Z6%)=X%:Z2^(Z6%)=Y%:NEXT 

600 FOR P%=1T014:F0R J%=1TO8:«:OL0,0: 
PLOT69,Z% (J%) ,Z2% (J%) :Z% (J%) =Z% {J%) + (Q% 
(J%)*4) 

61 GCOL0, 1 :Z2% (J%) =Z2% (J%) + (01 % <J%) * 
2):OX)L0,7:PLOT69,Z%(J%),Z2%(J%):NEXT:S 

OUND 0,1,6,4:NEXTP% 




620 

630: 

640 

650 

:MOVE 

T 
660 
670: 
680 
690 
700 
710 

720 

730 
740: 

750 
760 
770 
780 



ENDPROC 

DEFPROCaieteors 

GCOL0,1:FOR W%=lTO(L%/2.5)+RND(5) 

RND(1000) / RND(600)+200:VDU225:NEX 

ENDPROC 

DEFPROCstars 

COLOUR 2 

FOR S%=1 TO RND (50) +50 

PLOT69,RND(1200)+40,RND(1000)+24 

NEXT 
ENDPRCC 

i 
\ 

ON ERROR OFF 

MODE6:IF ERR=17 END 

REPORT: PRINT " at line ";ERL 

END 
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THE ELECTRON'S EDGE CONNECTOR 

by Philip Le Grand 



This short article is meant as a quick introduction to the 
connector at the back of the Electron, and is intended for the more 
technically minded Electron users amongst our readers. 



As you can see, the edge connector 
at the rear of the Electron, has gold 
plated pins on both sides of the 
printed circuit board. The functions of 



is given in the 
with a brief 
in the following 
numbers associated 
in accordance with 



each of these pins 
diagram opposite, 
explanation of each 
table. Note that the 
with each pin are 
Acorn's numbering convention. Pin 1 is 
on the component side of the board, at 
the far left hand side, as you look at 
the back of the Electron, with the 
keyboard facing upwards. Pin 2 is 
directly below pin 1 , pin 3 is next to 
pin 1, and pin 4 is below pin 3 etc. 
Therefore, all of the odd numbered 
connections are on the component side, 
and all of the even numbered 
connections are underneath the machine. 



TRACK SIDE 


COMPONENTSIDE 


18V A.C. input ■ 


■ 18V A.C. return 


A.C. return ■ 


• A.C. return 


-5V ■ 


■ -5V 


ov - 


OV 


-5V - 


+ 5V 


16MHz clock ■ 


1 Sound output 


lout • 


■ 1MHz clock 


NNMI - 


■NRST 


R/NW • 


■NIRO 


D6 - 


D7 


D4 - 


D5 


D2- 


D3 


D0- 


• D1 


. N.C. ■ 


RDY 


A14-I 


[- A15 


A12 - 


• A13 


A10- 


- A11 


AO - 


•A9 


A2 - 


- A1 


A4 - 


• A3 


A6 • 


■ A5 


A8 - 


■ A7 


OV- 


• OV 


+ 5V- 


■ +5V 



CONNECTOR 
1,2,3,4 

5-10,47-50 

11 

12 

13 

14 

15 

16 

17 

18 

19-26 

27 

28 

29 & 30 
31-46 



FUNCTION 
18V A.C. INPUT 
and RETURN 
-5V,0V & +5V 

SOUND OUTPUT 

16MHz CLOCK 

1MHz CLOCK 

phi out 

NRST 

NNMI 

NIRQ 

R/NW 

D0-D7 

RDY 

N.C. 
keyway 
A0-A1 5 



EXPLANATION 

Power supply connection for peripherals to power 

the Electron. 

Power supplies from the Electron's internal 

power supply. 

A direct output of the sound, unamplified. 

Master clock supply for the video display. 

Main CPU timing clock. 

Connection to CPU. 

Reset line to CPU (active low) . 

Non-maskable interrupt (active low) . 

Interrupt request (active low) . 

Read (active high) , Write (active low) . 

Data bus. 

CPU READY line (goes high when data and address 

lines are stable). 

No connection. 

Polarising slot. 

Address bus. 



HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINT 



* COMMANDS IN BASIC 



When typing * commands such as *FX or *MOTOR into Basic programs the * command 
must be the last command on the line. This is because further colons are ignored and 
the whole of the rest of the line is given to the operating system once the ■*■ 
character has been recognised. 
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3D ROTATION 

by James Hastings 



This is an extremely interesting program which enables shapes to 
be drawn in three dimensions and then viewed from any angle. A short 
sequence showing output from this program was recently included in 
an edition of the BBC TV programme "Tomorrow's World" as an example 
of the use of computers in 3D graphics. 



This program enables a wire frame 
shape to be displayed on the screen and 
then manipulated in various ways from 
the keyboard. The object to be drawn is 
defined in the program as a series of 
data statements, which are easily set 
up, as they are the X, Y and Z 
co-ordinates of the "corners" of the 
object. Once these are entered the 
program is run, and displays a front 
view using mode 4 graphics. The object 
may then be rotated about any axis, or 
viewed from nearer or further simply by 
pressing one of 12 keys. These also 
allow the object to be moved left, 
right, up and down on the screen. The 
program will only draw and transform 
objects made up from straight lines, 
but there is no apparent limit to the 
complexity of the "wire-frame" objects 
generated. 

HOW TO USE THE PROGRAM. 



The reason that the main program 
starts from line 1000 is to allow the 
earlier lines to be used for the data 
statements to define objects that you 
may develop later. The data statements 
on lines 100 to 180 define a 3D cube. 
Pictures of this are included with this 
program. 

Run the program. You should see a 
cube, viewed from one side. The cube 
may now be moved using the keys 
described in the table below. 



1. Cursor keys LEFT and RIGHT rotate 
around the Y axis. 

2. Cursor keys UP and DCWN rotate 
around the X axis. 

3. 'RETURN' and the ':' key (left of 
RETURN) rotate around the Z axis. 

4. DELETE and COPY reduce and increase 
the size of the object. 

5. Keys 'Z' and 'X* move left and 

right. 

6. Keys *Q' and 'A' move up and down. 




This provides the ability to view 
the object from any point, including 
actually from within the object itself, 
by increasing its size sufficiently. 
The program always draws all lines of 
the object concerned as if it were a 
wire frame. 




CREATING A NEW 2D OBJECT 

Designing your own shapes is very 
easy. To start with let us consider how 
to draw a simple square in 2 
dimensions. (The program will equally 
well draw and display 2D objects in a 
3D field of vision) . 
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Take a piece of paper (graph paper 
is best) and draw a large cross in the 
middle. This will represent the X and Y 
axes upon which we will sketch the 
object, in this case a square. Mow draw 
a large square with the cross at its 
centre. Number the corners of the 
square anti-clockwise, from 1 to 4, 
starting with the top right hand corner 
as 1 . 

We now need to work out the X, Y and 
Z co-ordinates of the square. Let's 
assume for convenience that the length 
of each side of the square is 1000 

units. 



2 (-500,500) 



1 (500,500) 



3(-5O0,-500» 




4(500,-500) 



This makes the X and Y co-ordinates 
of point 1... 500,500. As the object is 
flat (we are only drawing it in 2D) , 
the Z co-ordinate will be 0. 

Thus the co-ordinates of point 1 are 
500,500,0 (co-ordinates are always 
given in the order X, Y, Z) . Similarly 
those of 

point 2 are -500,500,0 

Point 3's are -500,-500,0 

Point 4's are 500,-500,0 

We can now compose the data 
statements for the program. These will 
be inserted into the program on any 
line numbers up to 990 and will replace 
those in the program listed below on 
lines up to 990. The program requires 
information in the following format. 

1) Number of "corners", followed by the 
X, Y and Z co-ordinate of each 
"corner". 



2) Number of lines 
followed by tne 
which they should 



to be 



ii. 



corner 
join. 



drawn, 
numbers" 



This may sound complicated but is in 
fact very straightforward. The number 
of corners in our square is obviously 4 
and we have worked out the co-ordinates 
already, so the first data statement 
will read: 

120 DATA 4,500,500,0,-500,500,0, 
-500,-500,0,500,-500,0 

The number of lines is also 4. If 
you look at your sketch you will see 
that we have numbered the corners from 
1 to 4. The lines of the square go from 
point 1 to point 2, point 2 to point 3, 
point 3 to point 4, and point 4 to 
point 1. This is all that is required 
for the second data statement, which we 
can now write: 

130 DATA 4,1,2,2,3,3,4,4,1 




That's all there is to it. These two 
lines, 120 and 130, should replace the 
data statements in the program listed 
below on lines 120, 130 and 170. The 
actual line numbers are irrelevant as 
long as they are below 1000. Type them 
in and run the program, remembering to 
check that previous data statements, 
such as line 170 have been removed. 

HOW TO DRAW YOUR OWN 3D OBJECT. 

To do this we follow exactly the 
same process as above but now using an 
object with depth, for example a 
pyramid with a square base. As this is 
drawn as an extension to a square, we 
will be able to use some of the above 
calculated co-ordinates. 

Take the sketch of the square made 
earlier and consider the Z axis. This 
is at right angles to the other two 
axes and can be thought of as extending 
from above the paper, through the 
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centre of the cross, to below the piece 
of paper. When calculating 3D 
co-ordinates you have the choice of 
either imagining the points not 
actually on 
sketch them 



the paper, or attempting to 
using perspective. 



t*> [e.a.sMi 




Z-NUS 



To continue with the pyramid, 
consider its apex, which we will 
define, for convenience, at a height of 
500 units. This places it exactly over 
the intersection of the X and Y axes at 
a height of 500. Consequently its 
co-ordinates will be 0,0,500. If we 
number the apex as "corner" 5, you can 
see that it will require lines to be 
drawn joining it to "corners" 1,2,3 and 
4. We now have an object with 5 
"corners" and 8 lines. The data 
statements can therefore be represented 
as follows: 

120 DATA 5,500,500,0,-500,500,0, 
-500,-500,0,500,-500,0,0,0,500 

130 DATA 8,1,2,2,3,3,4,4,1,5,1, 
5,2,5,3,5,4 

Type in these lines instead of all 
other lines up to 990 and run the 
program. 



If this doesn't make sense to you, 
compare them with the data statements 
calculated above for the square. Refer 
also to the diagram of the pyramid 
above, to see how the axes would pass 
through it. The co-ordinates of the 
"corners" are also indicated. 



FORMULA 



For tnose people interested in the 
calculations used to perform the 
rotation, James has given the following 
formula. To calculate the new X and Y 
co-ordinates following a rotation about 
the Z axis by an angle of psi : 
Xnew=Xold*Cos(psi)-Yold*Sin(psi) 
Ynew=Yold*Cos(psi)+Xold*Sin(psi) 
and so on for the other axes. 

MODIFYING THE PROGRAM 

The program runs in mode 4, but you 
can easily change line 1010 so that it 
runs in mode 1. The drawings will still 
be the same size, but to the higher 
resolution that mode 1 provides. 
Unfortunately, the Electron is slower 
in this mode, and transformations of 
any object will take longer. You can 
also amend the program so that the 
drawings are in white against a blue 
background by adding the line: 

1015 VDU19, 0,4, 0,0,0 
Tnis gives a most attractive display. 

10 REM Program 3-D Rotation 

REM Version E1.0 

REM Author J.Hastings 

REM ELBUG Jan/Feb '84 

REM Program subject to copyright 



20 
30 
40 
50 
60 
1 




REM Points data 
110 : 

120 DATA 8,-500,500,500,500,500,500,3 
00,-500,500,-500,-500,500 

130 DATA -500,500,-500,500,500,-500,5 

00,-500,-500,-500,-500,-500 
140 : 
150 REM Lines data 

160 : 

170 DATA 12,1,2,2,3,3,4,4,1,1,5,2,6,3 

,7,4,8,5,6,6,7,7,8,8,5 
180 : 

ON ERROR GOTO 1220 

MODE 4 

hor%=640 

vert%=512 

VDU 29,hor%;vert%;:VDU23,l,0;0;0; 



1000 

1010 
1020 
1030 
1040 

0; 

1050 
1060 



*FX 4,1 
PROCpoints 



» 
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e "; 



1070 PROClines 
1080 distance!=5000 
1090 diststep%=500 
1100 anglestep=PI/16 
1110 movestep=32 
1120 hmove%=0 
1130 vmove%=0 
1140 REPEAT 
1150 PRCC2D 
1160 PROCdraw 
1170 PROCupdate 
1180 PRCCrotate 

1190 UNTIL FALSE 
1200 END 

1210 : 

1220 REM Error trap 

1230 M0DE6 

1240 IF ERR017 REPORT: PRINT " at lin 
ERL 

1250 *FX 4,0 

1260 END 

1270 : 

1280 DEF PROCpoints 

1290 REM Dimension point arrays and re 
ad in points data 

1 300 READ points% 

1310 DIM X (points!) ,Y(points!) ,Z(point 
s%) ,X2D (points!) ,Y2D (points!) 

1320 FOR count!=l TO points% 

1330 READ X(count%),Y(count%),Z(count% 

) 

1 340 NEXT coant% 

1350 ENDPROC 

1360 : 

1370 DEF PROClines 

1380 REM Dimension line arrays and rea 
d in lines data 

1390 READ lines% 

1400 DIM start!(lines!),end!(lines!) 

1410 FOR count%=l TO lines% 

1420 READ start%(count%) ,end%(count%) 

1 430 NEXT count! 

1440 ENDPRCC 

1450 : 

1460 DEF PR0C2D 

1470 REM Convert to 2-D 

1480 FOR count!=l TO points% 

1 490 X2D (count% ) =X (count% J *2500/(dista 
nce%-Z (count!)) 

1 500 Y2D (count!) =Y (count!) *2500/(dista 
nce%-Z (count!)) 

1510 NEXT count! 

1520 ENDPRCC 

1530 : 

1540 DEF PROCdraw 

1550 CLS 

1560 FOR count%=l TO lines! 

1570 MOVE X2D(start!(count!)),Y2D(star 
t! (count!)) 

1580 DRAW X2D(end% (count!) ) ,Y2D(end!(c 
ount!) ) 



1590 NEXT count! 

1600 ENDPROC 

1610 : 

1620 DEF PROCupdate 

1630 phi=0: theta=0: psi=0: hmove!=0: 
vmove!=0 

1640 REPEAT 

1650 *FX 15,0 

1660 key=GET 

1670 UNTIL key=13 OR key=58 OR key=38 
OR key=90 OR key=65 OR key=81 OR key=l 3 
5 OR key=127 OR key=l 36 OR key=137 OR k 
ey=138 OR key=139 

1680 REM Rotate about X axis ? 

1690 IF key=139 THEN phi=anglestep 

1700 IF key=138 THEN phi=-anglestep 

1710 REM Rotate about Y axis ? 

1720 IF key=137 THEN theta=anglestep 

1730 IF key=136 THEN theta=-anglestep 

1740 REM Rotate about Z axis ? 

1750 IF Key=13 THEN psi=-anglestep 

1760 IF key=58 THEN psi=anglestep 

1770 REM Change viewing distance ? 

1780 IF key=127 THEN distance!=distanc 
e!+diststep! 

1790 IF key=135 THEN di stance! =distanc 
e!-diststep! 

1800 IF key=90 THEN hmove!=-movestep 

1810 IF key=88 THEN hmove!=movestep 

1820 IF key=65 THEN vmove!=-movestep 

1830 IF key=81 THEN vmove!=movestep 

1840 ENDPROC 

1850 : 

1860 DEF PRCCrotate 

1870 IF phi<>0 THEN PROCXrotation 

1880 IF theta<>0 THEN PRCCYrotation 

1890 IF psi<>0 THEN PROCZrotation 

1900 IF hmove!<>0 OR vmove!<>0 THEN PR 
OCshift 

1910 ENDPRCC 

1920 : 

1930 DEF PROCXrotation 

1940 REM Rotate about X axis 

1950 Cosphi=COS (phi): Sinphi=SIN(phi) 

1960 FOR count%=l TO points! 

1970 Y=Y(count!): Z=Z(count!) 

1980 Y (count!) =Y*Cosphi-Z*Sinphi 

1990 Z (count!) =Z*Cosphi+Y*Sinphi 

2000 NEXT count! 

2010 ENDPRCC 

2020 : 

2030 DEF PROCYrotation 

2040 REM Rotate about Y axis 

2050 Costheta=COS(theta) : Sintheta=SIN 
(theta) 

2060 FOR count!=l TO points! 

2070 X=X(count!): Z=Z(count!) 

2080 X (count!) =X*Costheta-Z*Sintheta 

2090 Z (count!) =Z*Costheta+X*Sintheta 

2100 NEXT count! 

2110 ENDPROC ** 
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2120 : 

2130 DEF PRCCZrotation 

2140 REN Rotate about Z axis 

2150 Cospsi=COS(psi) : Sinpsi=SIN(psi) 

2160 FOR count%=l TO points% 

2170 X=X(count%): Y=Y(count%) 

2180 X(count%)=X*Cospsi-Y*Sinpsi 

2190 Y (count!) =Y*Cospsi+X*Sinpsi 



2200 NEXT count! 

2210 ENDPROC 

2220 : 

2230 DEF PRCCshift 

2240 REM MOVE CUBE UP/DOWN/LEFT/RIOIT 

This program is adapted from a 
version for the BBC micro first 
published in BEEBUG Vol.1 No. 10. 



POSTBAG POSTBAG POSTBAG POSTBAG POSTBAG POSTBAG 



BOOTS' CASSETTE RECORDERS 
Dear Sir, 

My compliments upon what I consider 
to be an excellent magazine. I much 
appreciated the index for 'Start 
Programming' in ELBUG and only wish the 
'User Guide' had a similar index. 

I was also misled by the connecting 
instructions for the Boots CR37S 
cassette recorder, which has replaced 
the CR325 recommended in ELBUG. Much 
time was expended before I realised 
that the load plug had to be inserted 
in the earpiece socket and not 
auxilliary. 

D.D.Green 

Reply- 

We are glad the index was 
appreciated. We are considering whether 
to produce a similar index for the 
User Guide. 

Other readers have also written 
about Boots' cassette recorders. The 
model CR375 will work with the 
Electron, though it is rather more 
expensive than the model CR325 which it 
replaces. 



GAMES HIGH SCORES 
Dear Sir, 

I got a 
City (on 
cassette). I wasn't 
supposed to send my 



high score of 

the ORBIT 

sure 

high 



93856 on Space 

introductory 

where I was 

score to, so I 



posted it to you hoping that it will 
get published in the high score table. 

M. Diamond 
Reply : 

Headers will probably have seen that 
we publish a games high score table for 
the BBC micro in tne supplement that 
comes with your ELBUG magazine. We 
shall be publishing a separate table 
for Electron games starting next month. 



provided that there is enough interest 
and you send us your high scores (to 
the Editorial address please). 



WHAT IS MODE 7? 
Dear Sir, 

I am delighted to have received tne 

first copy of your magazine, which I 
find very instructive and informative. 

As a novice to computing I would 
appreciate your guidance regarding the 
'Munchman' program (published in the 
first issue of ELBUG) where line 2160 

states: 

2160 MODE 7:*FX12 
As the Electron does not have mode 7, 
could you tell me which mode I snould 

use? 

I have tried previously to modify a 
BBC program containing mode 7 by using 
mode and mode 3, but each time was 
informed that I had a 



Bad 



program' . 
G.Gallagher 



Reply: 

SoTTe 



additional 
micro, and 



mode 

is the 

machine in the 

6 is the default 



/ is an 
available on the BBC 
default mode for that 
same way that mode 
mode for the Electron. Ttie Muncnman 
program, which was converted from a 
version for the BBC micro, should have 
specified mode 6 at line 2160, although 
the program as listed will still work 
correctly as the Electron always 
defaults to mode 6 if mode 7 is 
selected. 

Generally speaking, however, if you 
want to convert BBC programs using mode 
7 to run on the Electron, you will also 
have to remove all the special control 
characters (they all have ASCII codes 
greater than 128), which control colour 
and other special effects. 



POSTBAG POSTBAG POSTBAG POSTBAG POSTBAG POSTBAG 



ELBUG 



Jan/Feb 1984 



Volume! Issue-3 



12 



NEW SOFTWARE FROM PROGRAM POWER 

reviewed bv Alan Webster 




Last month we reported that Program 
Power had }ust launched a range of 
software for the Electron. 

Program Power have already 

established themselves as a major 
supplier of quality computer games for 



Name : 
Suppl ier : 
Price : 
Rating : 



Positron 
Program Power 
£6.95 



*** 



This is a very fast Space Invaders 
type of game, requiring superior 
reflexes if you are to prevent the 
aliens from landing. The game is not 
that original, as computer games go, 
but worth buying if you like the 
adrenalin draining 'blast and zap 'em* 
type of game. 



the BBC 

building 

software 



micro and they are rapidly 
up a catalogue of equally good 
for the Electron. 



The programs are all attractively 
packaged, they all load reliably and 
they are readily available in the 
shops, including chains such as 
W.H.Smith. The first launch for the 
Electron contained 11 titles of which 
we have selected six for review. A 
further 1 programs have just been 
announced for the Electron, enabling 
Program Power to offer a really wide 
choice of computer games for tne new 
Electron user . 



Note: These and other Program Power 
software are widely available through 
computer shops and dealers as well as 
many branches of Boots, John Menzies 
and W.H.Smith. 



Name : 


Swoop 




Supplier: 


Program 


Power 


Price : 


£7.95 




Rating : 


*** 





Swoop is one of the few games that 
happen to run much better on an 
Electron than in its original version 
for the BBC micro. It is a variation on 
Galaxians, with the birds laying 
explosive eggs at the bottom of the 
screen. Ttie game, although nice and 
fast, is rather repetitive. 



Name : 
Suppl ier : 
Price : 
Rating : 



Cybertron Mission 

Program Power 

£7.95 
**** 



Cybertron Mission 
adventure in which 
various objects and 
safes. The smooth 



is an animated 

you must collect 

return them to 

and attractive 



graphics provide an enjoyable game. 
There are 15 rooms on each level, and 
up to four different levels before the 
game restarts. As the game progresses, 
you meet more and more enemies, and 
your task becomes increasingly harder. 
Beware of the ghost that makes an 
occasional appearance! This is one of 
the better games available for the 
Electron. 
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Name : 

Suppl ier : 
Price : 
Rating : 



Moonraider 
Program Power 
£7.95 



**** 



Moonraider is a very good 
implementation of the arcade game 
Scramble. You have to navigate a 
spacecraft through a series of caverns 
and tunnels, bombing fuel dumps and 
enemy craft to gain points. The game 
has six stages with varying speed, any 
of which can be chosen at the start. 
The graphics are excellent with very 
smooth movement resulting in an 
interesting and challenging game. 





Name : 
Suppl ier : 
Price : 
Rating : 



Killer Gorilla 
Program Power 
£7.95 



*** 



Graphically this game compares well 
with the arcade game, but the action is 
slower. You take the part of the young 
lad, trying to rescue the maiden from 
the grasp of the gorilla. To reach the 
maiden, you must climb ladders and 
girders, avoiding fireballs and 
barrels, until you reach the top. There 
are four different screens, with lifts 
and giant springs on the third screen 
to cause you extra problems. If it 
wasn't for the lack of speed, this game 
would be thoroughly addictive. 



Name : 
Supplier: 
Pr ice ; 
Rating 



Felix in the Factory 
Program Power 
£7.95 



. ***** 



Felix is a factory worker who is 
left on his own one day. His job is to 
keep the generator from running out of 
oil. He is armed only with a spear to 
kill the monsters and help make his 
task of re-fueling the generator 
easier. The generator's consumption 
requires frequent journeys to get the 
oil can. If the generator does run out, 
then that spells trouble for Felix! 

This is probably the best game 
available so far for the Electron, and 
well worth the cost. 
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ELECTRON GRAPHICS (Part 3) 

by David Graham 



In the last issue we looked at the animation of simple 
characters. The characters involved were of a single colour only, 
but it is possible to apply similar techniques to move multicoloured 
characters around the screen. The effects obtained in this way can 
be quite striking, and will generally enhance the visual content of 
games and other programs. 





GENERATING A MULTI-COLOURED CHARACTER 

Broadly speaking, multicoloured 
characters are produced by defining a 
separate character for each colour 
invloved, and then superimposing one 
over the other in the required colour. 
Before the superimposition is 

attempted, the call VDU 5 must be 
executed. This prevents the second 
character from overwriting the first. 
In fact VDU 5 has a number of effects, 
as indicated in table 1, 



* Characters are plotted at the 
graphics cursor position, and the text 
cursor is turned off. Itiis enables text 
or user defined characters to be placed 
anywhere on the screen by the MOVE 
command. NOTE : TAB does not function 
when the text and graphics cursor are 
joined together, and so MOVE must be 
used. 

* Text and graphics are only 
produced within the graphics window. 

* The colour used is obtained from 
the last QCOL command, not the COLOUR 
command. 

* Only the foreground colour is 
plotted, not the background colour, 
allowing characters to be overprinted. 

* VDU 5 is cancelled with VDU 4. 

Table 1 








"It- 




i 



Program 1 uses superimposition under 
VDU 5 to produce a multicoloured space 
invader. Line 100 calls PROCdef which 
defines two characters, 
invader, and one for its 
characters were created 
definer program on 



one for the 

eyes. The two 

using the 

the ELBUG 



PROGRAM COLOURED CHRS 1 

AUTHOR D.Graham 

Version E.10 

ELBUG Jan/Feb '84 

Program subject to copyright 



10 REM 
20 REM 
30 REM 
40 REM 
50 REM 
60 : 
100 PROCdef 
110 MODE2 
120 VDU5 

130 CTOL0,1:MOVE 200,200:VDU224 
140 <XOL0,12:MOVE 200,200:VDU225 
150 END ■ 

160 : 
1000 DEFPROCdef 

1010 VDU23, 224, 24, 60, 126, 21 9, 90, 126, 66 
,129 
1020 VDU23, 225, 0,0, 0,36,36,0,0,0 
1030 ENDPROC 

introductory cassette. Line 110 selects 
Mode 2, and 120 calls VDU 5 so that we 
can superimpose the two characters on 
top of each other. Note that as 
indicated above, TAB does not function 
under VDU 5, and is replaced with the 
MOVE statement. The parameters for MOVE 
are the x and y coordinates of the 
cursor. The graphics screen on the 
Electron is 1280 points across by 1024 
points vertically. The GCOL statement 
in lines 140 and 150 is used to select 
the two colours - in this case red, and 
flashing yellow - blue. 




Space Invader. 



E^es foe Space Invader 
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MOVING A MULTICOLOURED CHARACTER, 

If we wish to move a multicoloured 
character, we can adopt a similar 
technique to that used for moving a 
pair of monochrome characters. That is 
to say, assign the characters to be 
printed, to a string variable, and 
print the string in successive 
positions across the screen. 

Program two achieves this. If you 
RUN this program, you will see a static 
multicoloured invader printed in the 
top half of the screen, and when the 
space bar is pressed, a second invader 
will travel across the screen. 

In the animation examples given last 
month, each time that we printed a new 
image of a character, its previous 
image was deleted from the screen by 
overprinting with a space character. A 
similar technique could be used here, 
though the overprinting would have to 
be done with a block character defined 
to the background colour. But there is 
a much more useful way of deleting a 
multicoloured character. This involves 
the use of so called exclusive-or 
plotting. 

If we use exclusive-or plotting to 
print our character, then printing it a 
second time in the same position will 
completly erase it. The great advantage 
of this approach is that it occurs in 
such a way as to leave any background 
completly unchanged; whereas deleting 
the character in the normal way would 
leave a trial of blanks across any 
scenery that the character passed 
across. 

Exclusive-or plotting is invoked by 
the O20L statement (see User Guide page 
97) . The statement takes the form 
OZOL 3,n where the 3 establishes 
exclusive-or plotting, and the n 
determines the logical colour plotted. 
For example, try the following 
statements: 

MODE 2 

OXL 3,5 

VDU 5 
Now press Return a few times. You 
should see the prompt appear in magenta 
(colour 5) . Now press say the letter 
'L'. This will again appear in magenta. 
If you now execute CRTL-H (ie hold down 
the CTRL key and press H) , this will 



backspace the cursor, though the cursor 
is not visible under VDU 5. Now when 
you press the letter 'L', the previous 
one will be erased. This is because the 
two letters were exclusive-or plotted 
over the top of each other. 

Program 2 uses this technique to 
erase earlier images of the invader as 
it moves across the screen. PROCdef 
defines the two parts of the invader as 
in program 1 . PRCCchrs (defined in 
lines 1050 to 1090) first creates the 
equivalent of two CCOL statements. RED? 
is assigned the sequence 18,3,1 which 
lias the same effect as VDU 18,3,1 which 
(see User Guide page 107) is equivalent 
of GCOL 3,1. This invokes exclusive-or 
plotting in red (for the invaders 
body) . YELLOWS is equivalent to 
GCOL 3,12 to exclusive-or plot flashing 
yellow for its eyes. Line 1080 then 



REM Program 

REM Author 

REM Version 

ELBUG 
Program 



REM 
REM 



COLOURED CHRS2 

D.Graham 

E1.0 

Jan/Feb '84 

subject to copyright 



10 
20 
30 
40 
50 
60 

100 
110 

120 
130 
140 
150 MOVE640,864:PRINTINVADER$ 



PROCdef 
PROCchrs 
MODE 2 
VDU5 




160 
170 
180 
190 
200 



GCOL0,3:PRINT ,n Press space bar 



it 



it 



REPEAT 

REPEAT UNTIL GET$=" 
210 MOVE0,512 
220 PRINTINVADER?;CHR$8; 
230 FORloop%=0 TO 18 
240 PRINTINVADER?; INVADER?; 

VDU 8 

NEXT 

PRINT INVADER? 

UNTIL FALSE 



250 

260 

270 

280 

290 
1000 
1010 
,129 
1020 VDU23, 225,0,0,0, 36,36,0,0,0 




DEF PROCdef 

VDU23, 224, 24, 60, 126, 21 9, 90, 126, 66 



1030 
1040 
1050 
1060 
1070 
1080 



ENDPRCC 



DEF PRCCchrs 

RED$=CHR$1 8+CHR?3+CHR?l 

YELL0W?=CHR?1 8+CHR$3+CHR$l 2 

INVADER?=RED?+CHR?224+CHR?8+YELLO 

W?+CHR?225 
1090 ENDPROC 1 
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combines the GCOL codes with the actual 
character definitions (CHRS 224 and 
225). CHR$ 8 performs a backspace to 
achieve superimposition. 

The vital line in the invader moving 
routine (lines 190 to 280) is 240. This 
prints INVADER$ twice in adjacent 
positions. The left-most printing 

serves to delete the previously printed 
image. When using tnis technique, the 
very first and very last invader 
positions must be catered for 
separately. This is achieved in lines 
220 and 270. You may like to try 
omitting them to see the effect. 

As mentioned above, the use of 
exclusive-or plotting has an important 
consequence. Backgrounds are not 
deleted when characters are erased. To 
see this in action, add the following 
lines to program 2. 

170 PROCbox 
1100 DEFPROCbox 
1120 GCOL0,6 
1130 PLOT4,540,612:PLOT4,540,412 
1140 PLOT85,740,612:PLOT85,740,412 
1150 ENDPRCC 

Their function is to draw a filled box 
in the middle of the screen in the path 
of the invader. If you run the program, 
you will see that the invader becomes 
faint as it passes the box, only to 
emerge leaving the box, and itself 
completely intact. 

In practice the effect of 

over-plotting colours under GCOL 3 

depends on the logical colour numbers 

associated with them, and it is 

possible to organise things in such a 

way that characters can appear to move 

in front of some objects, and behind 

others. We will take a closer look at 
this in a future issue. 

In the meantime, there is just one 
further technique which may be used to 
improve the look of the moving 
multicoloured character. This concerns 
the jerkiness of its movements. It is 
possible to make the invader move more 
smoothly by using smaller increments in 
between each printing. 

However, this slows down the 
printing process to a point where each 
character does not move quickly enough 



across the screen. One way of almost 
doubling the speed of the Electron in 
such cases is to use Mode 5 rather than 
Mode 2; but a consequnce of this is 
that you may only display 4 colours 
simultaneously (including background); 
though the particular colours displayed 
may be chosen by the user with the 
VDU 19 command (see User Guide page 
107). 

Program 3 uses these techniques to 
move an invader across the screen, more 
smoothly than in program two. Mode 5 is 
chosen, and the invader is plotted at 
closer intervals tnan in program 2. The 
FOR loop in line 230 increments the 
print position by 32 graphics units (a 
screen is 1280x1024 units). Line 260 
backsteps by the same amount to 
overprint, and erase, the previous 
image. 

If you try this program you will see 
that the invader still sometimes takes 
on a 'ragged' appearance. This is due 
to the timing of the screen scan of the 
VDU. At machine code speeds it is 
possible to eliminate this with FX call 
19 (ie *FX19). This synchronises 
printing operations with screen scan. 

In the next issue we will take a 
look at the other method of producing 
colour graphics on an Electron, using 
the DRAW and PLOT statements. 



REM Program COLOURED CHRS3 

REM Author D.Graham 

REM Version E1.0 

REM Elbug Jan/Feb '84 

REM Program subject to copyright 



PRCCdef 
PROCchrs 
MODE 5 
VDU 5 



10 

20 

30 

40 

50 

60 
100 
110 
120 
130 
140 

150 MOVE640,864:PRINTINVADER$ 
160 CCOL0,3:PRINT"' Press space 
170 PROCbox 




bar" 



1 

190 

200 

210 

220 

230 

240 

250 

260 

270 



II 



REPEAT 

REPEAT UNTIL GET$=" 

MOVE0,512 

PRINTINVADERS;CHR$8; ■ 

FORloop%=0 TO 1152 STEP 

MOVEloop%,512 

PRINTINVADERS; 

PLOT0,-32,0 

PRINTINVADERS; 




H 2 

Ira 



32 



•> 
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280 NEXT 
290 PLOT0,-64,0 
300 PRINTINVADER$ 
310 UNTIL FALSE 

320 : 
1000 DEFPRCCdef 
1010 VDU23,224, 24,60, 126,21 9,90,1 26,66 

,129 

1020 VDU23, 225, 0,0, 0,36, 36,0, 0,0 

1030 ENDPROC 

1040 : 

1050 DEFPROCchrs 



1060 RED$=CHR$18+CHR$3+CHR$1 
1070 YELL3W$=CHR$18+CHR$3+CHR$2 
1080 INVADER$=RED$+CHR$224+CHR$8+YELL£ 
W$+CHR$225 
1090 ENDPROC 
1100 : 

1110 DEFPROCbox 
1120 C£OL0,1 

1130 PLOT4,540,612:PLOT4,540,412 
1140 PLOT85,740,612:PLOT85,740,412 
1150 ENDPROC 



NEW CHARACTER SETS FOR MODES 2 & 5 

by Alan Baker 

This program generates a completely new character set of 26 upper 
case letters for use in modes 2 and 5. Ttie styling is different, but 
more importantly they are designed to give 26, rather than 20 
characters per line, rendering much more readable and ellegant text 
in these two useful graphics modes. 



The routine used to generate this 
new character font is quite 
straightforward. The 26 letters of the 
alphabet are redefined on a 6 by 5 
pixel matrix using VDU 23 commands and 
then printed anywhere on the screen 
using the graphics cursor, backspacing 
two pixels before printing the next 
letter. The normal character set is not 
lost, and may be used concurrently. 

The technique employed here could be 



extended to 
characters; though 
will need to be 
memory allocated 
definitions. This 
*FX20 (see page 282 



redefine further 
special *FX calls 
made to expand the 
to character 
is achieved using 
of the User Guide) . 



If you run the program, after typing 
it into your Electron, you will be 
asked to specify a position on the 
screen in graphics coordinates (x must 
be between and 1279, and y must be 
between and 1023 with 0,0 at the 
bottom left hand corner of the screen) , 
and the character string to be 
displayed. The text is then displayed 
on the screen using the newly defined 
character set, and the program then 
terminates. 

PROGRAM NOTES 

The procedure PROCinitialise defines 
the 26 new characters, any of which may 




then be displayed on the screen by 
using the procedure PROCalpha with 
parameters xcoord, ycoord and texts. 
When this procedure is called, the 
parameters xcoord and ycoord point to 
the top left position of the first 
character from which the text in texts 
will be displayed. These two parameters 
must be given in graphics coordinates, 
as described above. The two procedures 
could be readily incorporated in any of 
your own programs. 

10 REM PROGRAM NEW CHARACTER SET 

20 REM AUTHOR ALAN BAKER 

30 REM VERSION El .0 

40 REM ELBUG JAN/FEB 1984 

50 REM PROGRAM SUBJECT TO COPYRIGHT. 

60 ON ERROR GOTO 590 

70 : 
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80 MODE 6 

90 PROCinitialise 

100 INPUTTAB{4 / 4)"X-COORDINATE (0-127 
9) "xcoord 

110 INPUTTAB(4,6)"Y-COORDINATE {0-102 
3) "ycoord 

120 INPUTTAB(4,8)"ENTER WORDS TO BE P 
RINTED" 

130 INPUTTAB<4,10) ,text$ 

140 MODE 5 

150 PROCalpha (xcoord, ycoord, text$) 

160 END 

170 : 

180 DEF PROCinitialise 

190 VDU23,224,&70,&88,&88,&F8,&88,&88 
,0;:REM A 

200 VDU23,225,&F0,&50,&78,&48,&48,&F8 
,0;:REM B 

210 VDU23,226,&F8,&88,&80,&80,&88,&F8 
,0;:REM C 

220 VDU23,227,&F8,&48,&48,&48,&48,&F8 
,0;:REM D 

230 VDU23,228,&F8,&40,&70,&40,&40,&F8 
,0;:REM E 

240 VDU23,229,&F8,&40,&70,&40,&40,&E0 
,0;:REM F ' 

250 VDU23,230,&F0,&80,&80,&B8,&88,&F8 
,0;:REM G 

260 VDU23,231 ,&88,&88,&F8,&88,&88,&88 
,0;:REM H 

270 VDU23,232,&70,&20,&20,&20,&20,&70 
,0;:REM I 

280 VDU23,233,&78,&10,&10,&10,&90,S<F0 
,0;:REM J 

290 VDU23,234,&B0,&A0,&A0,&F8,&88,&88 
,0;:REM K 

300 VDU23,235,&E0,&40,&40,&48,&48,&F8 
,0;:REM L 

310 VDU23,236,&F8,&A8,&A8,&A8,&A8,&A8 
,0;:REM M 

320 VDU23,237,&88,&C8,&A8,&98,&88,&83 
,0;:REM N 

330 VDU23,238,&F8,&88,&88,&88,&88,&F8 
,0;:REM 

340 VDU23,239,&F8,&48,&48,&78,&40,&40 
,0;:REM P 



350 VDU23,240,&F8,&88,&88,&A8,&90,&E8 

,0;:REM Q 

360 VDU23,241 ,&F8,&48,&48,&70,&48,&48 
,0;:REM R 

370 VDU23,242,&F8,&80,&F8,&08,&88,&F8 

,0;:REM S 

380 VDU23,243,&F8,&A8,&A8,&20,&20,&70 

,0;:REM T 

390 VDU23,244,&88,&88,&88,&88,&88,&F8 

,0;:REM U 

400 VDU23,245,&88,&88,&88,&50,&50,&20 

,0;:REM V 

410 VDU23,246,&88,&88,&A8,&A8,&A8,&50 

,0;:REM W 

420 VDU23,247,&88,&50,&20,&50,&88,&88 
,0;:REM X 

430 VDU23,248,&88,&88,&70,&20,&20,&20 
,0;:REM V 

440 VDU23,249,&F8 / &10,&20,&40 / &80 f &F8 
,0;:REM Z 

450 ENDPROC 

460 : 

470 DEF PROCalpha (xcoord, ycoord, textS 

) 

480 VDU5 

490 M%=1 

500 FOR N%=xcoord TO xcoord+(LEN(text 
$)*48-48) STEP48 

510 mS=MID$(text$,M%,l) 

520 MOVE N%, ycoord 

530 IF m$<>" " THEN PRINT CHR$(159+AS 
C(m$)) 

540 M%=M%+1 

550 NEXT 

560 VDU4 

570 ENDPROC 

580 : 

590 ON ERROR OFF: MODE 6 

600 IF ERR017 REPORT: PRINT" at line 
";ERL 

613 END 

This program is adapted from a 
version for the BBC micro that was 
first published in BEEBUG Vol.1 No. 7. 



HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINT 



UNINTKRRUPTABLE PROGRAMS - G.Middleton 

At last it is possible to write programs which can not be stopped with the Break 
or Escape keys. Use the following lines at the head of your programs: 
10 ON ERROR RUN 
20 *FX247,76 
30 *FX248,20 
40 *FX249,189 

These commands alter the locations looked at whenever the Break key is pressed, so 
that the machine jumps straight back into Basic and re-runs your program. 
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REVERSI 

by J. Webb 



The game of REVERSI (sometimes known as OTHELLA) is a fascinating 
game played on a conventional Draughts board, with two players. This 
version is well written and allows you to play either against the 
computer or against another player, using the computer to record the 
moves. You can also choose one of two levels of skill when playing 
against the computer. Even at the lower level, the program plays a 
pretty good game. 



In this version of REVERSI the first 
two counters are placed on the board 
for you as these are fixed moves. At 

you have the choice of 
whether to play first or 
then on you must always 
your counters on the board 
way that a line of your 
then has one of 
both ends. The 



the start, 
colour and 
second. From 
place one of 
in such a 
opponent's counters 
your counters at 



surrounded counters are now reversed so 
that they change to the colour of your 
own pieces. Of course, you may well be 
able to place a single counter that 
captures more than a just a single row 
of your opponent's pieces. 

If on your turn, you are not able to 
move to a legal position, then you must 
pass, by pressing P. The game ends when 
nobody can place any more counters on 
the board (usually when the board is 
full) , and the winner is the one who 
has the most counters. The program 
maintains the current score on the 
screen throughout the game. 

This is one of those games where it 
is much more difficult to explain the 
rules than it is to play the game 
itself. Oice you start playing you will 



quickly understand how the game works. 
Even so REVERSI is a game which 
requires considerable skill to play. In 
this version you are able to choose one 
of two playing levels at the start of 
each game. Beginners will find even 
level one quite challenging. We think 
you will enjoy playing this well 
constructed version of a popular game. 
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REM Program REVERSI 

REM Version El.l 

REM Author J.Webb 

REM ELBUG JAN/FEB 84 

REM Program subject to Copyright 



M0DE1 

ON ERROR GOTO 900 

DIMposition%(100) 

PRCCcircles 

PROCinstructions 

REPEAT: PROCin it 

PROCsetupboard 

PRCCfindplayers 

REPEAT 

REPEAT: PROCgo 

PROCcompute 
210 PRCClookatgo 
220 UNTILillegal%=2 
230 PROCupdatescore 
240 turn%=turn%+l:UNTILturn%=60 
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250 PRCCwin:UNTILwait$OCHRS(32) 
260 *FX15,1 
270 M0DE6:END 
280 : 

900 ON ERROR OFF: MODE 6: REPORT: PRINT 
" at line ";ERL:END 
910 : 

1000 DEFPROCinit 

1010 FORpos%=lTO100:position%(pos%)=0: 
NEXT 

1020 turn%=0:value%=l :comp%=0:go%=0:ed 
ge%=0:miss%=l 

1030 ENDPROC 

1040 DEFPRCCsetupboard 

1050 CLS 

1060 VDU28,0,31 ,10,0:VDU23, 1,0;0;0;0; 

1070 VDU4 

1080 VDU19,2,0,0,0,0:VDU5:<XOL0,2 

1090 MOVE352,960:MOVE352,128:PLOT85,11 
84,960:PLOT85,1184,128 

1100 MOVE416,96:(X:OL0,3:PRINT ,, A B C 

D E F G H":GCOL0,2 

1110 FORY%=160TO928STEP96 

1120 GCOL0,0:MOVE384,Y%:DRAW1152,Y%:MO 
VE1216,Y%+64:OCOL0,3: 

1 1 30 IFY%=928THENl 1 40ELSEPRINT; (Y%-1 60 
J/96+1 

1140 NEXT 

1150 OCOL0,0:FORX%=384TO1152STEP96 

1160 MOVEX%,160:DRAWX%,928:NEXT 

1170 VDU19,2,2,0,0,0 

1180 *FX15,1 

1190 RESTORE2910 

1200 F0Rposition%=lT04:READpos%,vaU,C 
% :position% (pos%) =val%:O:OL0,C%: PROCf in 
drowandcol (pos% ) : PROCcounter : NEXT 

1210 ENDPROC 

1220 DEFPROCfindplayers 

1230 VDU4:PRINTTAB(0,13)"Do you wantto 

play thecomputer?"'"(Y or N) " 

1240 *FX15 

1250 REPEAT:wait$=GET$:UNTILINSTR("YNy 
n", wait$)>0:SOUND&l 1,2, 40, 4: PROCclear (1 

0) 

1260 ItVait$<>"Y"ANCWaitS<>"y"THENENDP 
RCC 

1270 PRINTTAB(0,10)"Do you wanta hard 
oreasy game?"'" (H or E) " 

1280 *FX15 

1290 REPEAT:waitS=GETS:UNTILINSTR("HnE 
e", wait$)>0:SOUND&l 1,2, 40, 4: PROCclear (1 
0J : IFwait$="H"ORwait$="h"THENmiss%=0 

1300 go%=l :PRINTTAB(0,10)"Do you wantt 
o go first(Y or N)? M 

1310 *FX15 

1320 REPEAT:wait$=GET$:UNTILINSTR("YNy 
n" , wai t$ ) >3 : SOUNDS 11,2,40,4: PROCclear { 1 

0) 
1 330 IFwait$="Y"ORwait$="y"THENENDPR0C 
1340 go%=2: ENDPROC 



1350 DEFPRCCcircles 

1360 VDU23, 224, 0,0, 0,3, 7,15, 31, 31 

1370 VDU23,225,0,0, 126,255, 255,255, 255 

,255 
1380 VDU23, 226, 0,0, 0,1 92, 224, 240, 248, 2 

48 
1390 VDU23, 227, 31, 63, 63, 63, 63, 63, 63, 31 
1400 VDU23, 228, 255, 255, 255, 255,255,255 

,255,255 
1410 VDU23,229, 248,252, 252, 252, 252, 252 

,252,248 
1420 VDU23, 230, 31, 31, 15, 7, 3, 0,0,0 
1430 VDU23, 231, 255, 255, 255, 255, 255, 126 

,0,0 
1440 VDU23, 232, 248, 248, 240, 224, 192 ,0,0 

,0 
1450 C1$=CHR$224+CHR$225-K:HR$226:C2$=C 

HR$227+CHR$228+CHR$229:C3$=CHR$230+CHR$ 
231+CHRS232 

1 460 circle$=Cl $+CHR$8+CHR$8-k:hr$8+CHR 
$1 0+C2$+CHRS8+CHR$8-K:hR$8+CHR$1 0+C3$ 

1470 ENVELOPE!, 4, 0,0, 0,0, 0,0, 121, -10, - 
5,-2, 120,1 20: ENVEL0PE2, 16, 4,-8,-4, 16, 16 

,32,64,64,-64,-64,128,0 
1480 ENDPRCC 

1490 DEFPROCclear(tab%) :PRINTTAB(0,tab 
%)SPC(42):ENDPROC 

1500 DEFPROCgo 

1510 VDU4:pass%=0:COLOUR2 

1520 IFgo%<2THENl550 

1530 PROCclear (4) :go%=l :PRINTTAB{0,4) " 
Computing": IFvalue%=lTHENvalue%=2:QCOL0 
,0:ELSEGCOL0,3:value%=l 

1540 ENDPROC 

1 550 IFvalue%=l THENPRINTTAB (0 , 4 ) "Black 
's go:":value%=2:GCOL0,0:ELSEPRINTTAB(0 
,4) "White's go:":QCOL0,3:value%=l 

1560 IFgo£>0THENgo%=2 

1 570 REPEAT: REPEAT: PROCclear (5) : PRINTT 
AB(0,5J "Column? "; 

1580 col%=GETAND223: UNTIL (col%>64ANDco 
l%<73)ORcol%=80:PRINTCHR$(col%):col%=co 
l%-64 : IFcol%=l 6THEN1 61 

1590 PRINTTAB(0,6)"Row? "; 

1600 row%=GET:row%=row%-48:PRINT;row% 

1610 UWTIL(row%>0ANDrow%<9)ORcol%=16 

1620 VDU5:pos%=col%*10+row%+l 

1630 ENDPROC 

1640 DEFPROCcounter 

1650 S0UND&11,1,94,12 

1660 VDU5:M0VE291+96*col%,159+96*row%: 
PRINT;circle$ 

1670 TIME=0:REPEATUNTILTIME>50 

1680 ENDPROC 

1690 DEFPROCil legal 

1700 VDU4:SOUND&10,2,70,25 

1710 PRCCclear(S) 

1720 PRINTTAB(0,5)"Illegal" ,,, move" 

1730 IFvalue%=lTHENvalue%=2ELSEvalue%=l 

1740 IFgo%=2THENgo%=l ^ 
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1750 TIME=0:REPEATUNTILTIME>200 

1760 ENDPROC 

1770 DEFPROCweigh 

1780 weight%=0: IFposition% (pos%) >0ENDP 
RCC 

1790 RESTORE2920 

1800 FORB%=lT08:READC%:A%=pos% 

1810 IFedge%O0THENC%=edge%:B%=8 

1820 REPEAT: IFA%=pos%THENl 870 

1830 IFposition%(A%)=0THENA%=199:GOTOl 
870 

1 840 IFposi tion% (A%) =value%ANDposi tion 
% (A%-C%) <>value%ANDposi tion% (A%-C%) >0TH 
ENillegal%=l :weight%=weight%+ABS( (pos%- 
A%)/C%) -1 : PROCcheckedge: PROCedge:A%=l 99 

:GOTO1860 
1850 IFposi tion%(A%)=value%ANDposi tion 

%(A%-C%)=0THENA%=199 

1 860 IFweight%>bestgo%THENbestgo%=weig 
ht%:compgo%=pos% 

1870 A%=A%+C%:UNTILA%>100ORA%<1 

1880 IFillegal%=lANDcomp%<>2ANCcol%Ol 
6THENA%=pos% : PROCchangecolour 

1890 NEXT: ENDPROC 

1900 DEFPROCiookatgo 

1910 black%=0:white%=0:IFcol%=16ANDpas 
S%=0THEN1960 

1920 IFpass%=lTHENillegal%=2:turn%=tur 
nl-l:GOTO1960 

1930 illegal%=0 

1940 IFposition%(pos%)>0THENPROCillega 
1 : ENDPROC 

1950 PRCCweigh 

1960 F0RA%=1 TOl 00: IFposi tion% (A%)=3THE 
Nposition%(A%)=value% 

1970 IFposi tion%(A%)=2THENblack%=black 
%+l 

1980 IFposition%(A%)=lTHENwhite%=white 
%+l 

1990 NEXT 

2000 IFcol%=l 6ANDillegal%=0THENillegal 
%=2:turn%=turn%-l 

2010 IFillegal%O2THENPR0Cillegal 

2020 IFblack%=0ORwhite%=0THENturn%=59 

2030 ENDPROC 

2040 DEFPRCCfindrowandcol(posit%) 

2050 col%=posit%DIVl0 

2060 row%=(posit%-l)MODl0 

2070 ENDPROC 

2080 DEFPRCCchangecolour 

2090 REPEAT: PROCf indrowandcol (A%) 

2100 IFposi tion%(A%)<>3THENPR0Ccounter 

21 1 position% (A%) =3:A%=A%+C%: UNTILpos 
i tion% (A%) =value%: illegal%=2 

2120 ENDPROC 

2130 DEFPROCupdatescore 

2140 VDU4:PRINTTAB(0,15)"Last go-"; 

2150 IFcol%=16THENPRINT"P ":K%=K%+1:EL 
SEPROCf indrowandcol (pos%) : PRINTCHRS (col 
%+64);row%:K%=0 



2160 col%=0:PRINTTAB(0, 16} "Black: ";bl 
ack%;" " 

2170 PRINTTAB(0, 17) "White: ";white%;" 
" : IFK%=2THENturn%=59 

2180 ENDPROC 

2190 DEFPROCinstructions 

2200 VDU19,1,2,0,0,0 

2210 VDU23,1,0;0;0;0;:SOUND&11,2,80,255 

2220 COLOURl:PRINTTAB(14,3);"REVERSI" 

2230 C0L0UR2:PRINT"" The object of 

this game is to have ,M ;"the most dis 

cs displayed when the"'; "board is fu 

11." 

2240 PRINT" After a disc is played, a 
11 of your "'; "opponents discs trapped 
between the"'; "disc just played and ano 
ther disc of"; "yours are reversed to y 
our colour." 

2250 PRINT" If, on your turn, you do 
n't have a"'; "legal position to move t 
o then press 'P'to pass." 

2260 PRINT" You can play against 
either the"' ; "computer or another play 
er." 

2270 COLOUR3: PRINT" 'TAB (6); "Press 'sp 
ace bar' to play." 

2280 *FX15,1 

2290 REPEAT UNTIL GET=32 

2300 ENDPRCC 

2310 DEFPROCwin 

2320 VDU5:OX>L0,3:MOVE600,32:SOUND&11, 
2,80,255 

2330 IFblack%>white%PRINT"Black wins!" 
:GOTO2350 

2340 IFwhite%>black%PRINT"White wins!" 
ELSEPRINT"Close game!" 

2350 VDU4:COLOUR1:PRINTTAB(0, 23) "Press 

spacebar to play again" 

2360 *FX15 

2370 wait$=GET$ 

2380 ENDPROC 

2390 DEFPROCedge:IFG%O0THENENDPROC 

2400 RESTORE2860:Q%=0:REPEAT:Q%=Q%+1 :R 
EADcheck% : UNTILcheck%=pos% 

2410 RESTORE2860:FORP%=lTOQ%+l:READche 
ck% 

2420 IFP%=Q%-lANDposition%(check%)>0AN 
Dposition% (check%) <>value%THENweight%=0 

2430 IFP%=Q%+lANDposition%(cneck%)>0AN 
Dposition% (check!) <>value%THENweight%=0 

2440 NEXT 

2450 ENDPROC 

2460 DEFPROCcheckedge: IFedge%=0THENEND 
PROC 

2470 IFposition%(pos%-edge%)>0ANDposit 
ion% (pos%-edge%) <>value%THENweight%=0 

2480 IFposition%(A%+edge%)>0ANDpositio 
n% (A%+edge%) <>value%THENweight%=0 

2490 ENDPROC 
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2500 DEFPROCcor ner :F0RQ%=1 T03 : READpos% 
: PROCweigh : RESTORE2900 : FORS%=0TOR%+Q% : R 
EADT% : NEXT : NEXT : ENDPROC 

2510 DEFPROCcompute 

2520 G%=l:bestgo%=0:illegal%=0:IFcol%= 
16THEN2550 

2530 IFgo%OlTHENENDPROC 

2540 comp%=2 

2550 RESTORE2820:FORR%=lTO4:READpos%:P 
ROCweigh : RESTORE2820 : F0RS%=1 TOR% : READT% 
:NEXT:NEXT 

2560 IFbestgo%>0THEN2770 

2570 IFcol%=16THEN2640 

2580 IFturn%<5ORmiss%=lTHEN2640 

2590 FORedge%=-lTOlSTEP2:RESTORE2830:F 
0RR%=1 TO! 2 : READpos% : PROCweigh: RESTORE28 
3 : FORS%= 1 TOR% : READT% : NEXT : NEXT: NEXT 

2600 FORedge%=-10TO10STEP20:RESTORE284 
: F0RR%=1 TOl 2 : READpos% : PROCweigh : RESTOR 
E284 : F0RS%=1 TORI : READT% : NEXT : NEXT : NEXT 

2610 edge%=0:IFbestgo%>0THEN2770 

2620 G%=0 : RESTORE2850 :F0RR%=1 TOl 6 : READ 
pos%: PROCweigh: RESTORE2850:FORS%=1TOR%: 
READT%: NEXT: NEXT 

2630 G%=1 : IFbestgo%>0THEN2770 

2640 RESTORE2870:FORR%=lTO12:READpos%: 
PROCweigh : RESTORE2870 :F0RS%=1 TOR% : READT 
%: NEXT: NEXT 

2650 VDU19, 1,2, 0,0,0 

2660 IFbestgo%>0ANDmiss%=0THEN2770 

2670 RESTORE2880:FORR%=lTOl6:READpos%: 
PROCweigh: RESTORE2880:FORS%=1TOR%:READT 
%:NEXT:NEXT: IFbestgo%>0THEN2770 

2680 RESTORE2890:FORR%=lTOl6:READpos%: 
PROCweigh : RESTORE2890 : F0RS%=1 TOR% : READT 
%: NEXT: NEXT: IFbestgo%>0THEN2770 

2690 IFmiss%=lTHEN2760 

2700 RESTORE2900:FORR%=0TOl2:READpos% 

2710 IFR%MOD4=0ANDposition%(pos%)=valu 
e%THENPROCcorner 

2720 RESTORE2900:FORS%=0TOR%:READT%:NE 
XT: NEXT: IFbestgo%>0THEN2770 



2730 RESTORE2900:FORR%=0TO12:READpos% 

2740 IFR%MOD4=0ANDposition%(pos%)>0THE 
NPROCcocner 

2750 RESTORE2900 :FORS%=0TOR% : READT% : NE 
XT: NEXT: IFbestgo%>0THEN2770 

2760 RESTORE2900:FORR%=lTO16:READpos%: 
PROCweigh : RESTORE2900 :F0RS%=1 TOR% : READT 
%: NEXT: NEXT 

2770 IFcoH=l 6THENENDPRCC 

2780 comp%=l :IFbestgo%>0THENpos%=compg 

o% : ENDPROC 
2790 SOUND&l 1,1,2, 1 2:VDU4: PRINTTAB (0, 5 

);"Pass - no""'legal move":TIME=0:REPEA 

TUNTILTIME>200 

2800 col%=16:pass%=l 

2810 ENDPROC 

2820 DATA12,19,89,82 

2830 DATA1 4, 15, 16, 17, 84, 85, 86, 87, 13, 18 
,83,88 

2840 DATA32, 42, 52, 62, 39,49, 59,69, 22,72 
,29,79 

2850 DATA1 4, 17, 39, 69, 87, 84, 62, 32, 15, 16 
,49,59,85,86,42,52 

2860 DATA1 3, 14, 15, 16, 17, 18, 29, 39, 49, 59 
,69,79,88,87,86,85,84,83,72,62,52,42,32 
,22 

2870 DATA37, 36, 35, 34, 44, 54, 64 ,65, 66, 67 
,57,47 

2880 DATA24, 25,26,27, 38,48,58,68, 77,76 
,75,74,63,53,43,33 

2890 DATA32,42, 52,62,84,85,86,87,69, 59 
,49,39,17,16,15,14 

2900 DATA1 9, 18, 28, 29, 89, 79, 78, 88, 82, 83 
,73,72,12,22,23,13 
2910 DATA45, 2, 0,46, 1,3, 55, 1,3, 56, 2,0 
2920 DATAl,9,10,U,-l,-9,-10,-n 



This program is adapted from a version 
for the BBC micro first published in 
BEEBUG Vol.2 No. 6. 



HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS 



DOUBLE CUOTES - A.Baker 



ii 



mark inside a piece of text delimited by 
IS A "" DOUBLE QUOTE" 



To get a 
PRINT "THIS 
It gives: 

THIS IS A " DOUBLE QUOTE 
If you are going to put a 
must be delimited with 
together as above. 



H 



use two together: 



double quote in the middle of a string, then the string 
normal quotes, and the quote marks entered inside with two 



INPUTLINE - P.G.Barnes 

When using the INPUTLINE statement, TAB can be used to position the printed text 
and the input itself e.g. 
INPUTLINE TAB (10, 5) "ENTER NAME" TAB (5, 7) A$ 
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ELLIPTO 

by S. Wilkinson 



This is a relatively short program 
which produces varied patterns by 
plotting a succession of filled 
ellipses of random size. The ellipses 
have the same centre, and the pattern 
is gradually built up using so-called 
'exclusive or' plotting (achieved with 
the C£OL 3,1 statement in line 180 - 
see User Guide page 153). This program 
allows you to select either mode 4 or 
mode 0, and gives white patterns on a 
black background. When one pattern 
complete, pressing any key will produce 
a new display. Press Escape to exit the 
program. 

This program is adapted from a 
version for the BBC micro that first 
appeared in BEEBUG Vol.2 No. 2 
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REM Program ELLIPTO 

REM Version 1 .0 

REM Author S.Wilkinson 

REM ELBUG Jan/Feb 1984 

REM Program subject to copyright 



ON ERROR 
MODE 6 
PRINT 



GOTO 340 




■1 1 



100 REPEAT :CLS 

110 PRINT' "TAB(12);'*E L L I P T 
TAB (12); "by S.Wilkinson" 

INPUTTAB(0 f 15) "Mode or Mode 4 




120 
"M% 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 



UNTIL M%=4 OR M%=0 

MODE M% 

IF M%=0 M%=2 

VDU23,1,0;0;0;0; 

VDU29,640;512; 

QCOL3,l 

REPEAT 

C%=RND(7)*16+16 

F0RA=1 6 TO 51 2 STEP C% 

F0RB=1 6 TO 51 2 STEP C% 

L%=-A 

240 MOVEL%,0:DRAW-L%,0 

250 FOR Y%=4 TO B STEP4 

260 X%=A/B*SQR(B*B-Y%*Y%)/M%:X%=X%*M% 

270 MOVE X%,Y%:DRAW -X%,Y% 
280 MOVE X%,-Y%:DRAW -X%,-Y% 
NEXT Y% 

NEXT B,A 
A=GET:CLS:UNTIL FALSE 

END 



290 
300 
310 
320 
330 
340 
350 
360 
370 



ON ERROR OFF 
M0DE6:IF ERR=1 7 END 
REPORT: PRINT" at line ";ERL 
END 



HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS 



STEPPING THROUGH LISTINGS - R.Q.McMinn 

Mien listing a long program you can freeze the listing by pressing Control and 
Shift simultaneously. Releasing either key allows the listing to continue. 
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HOW TO WRITE A GAME PROGRAM (Part 2) 

by Mike Williams 

We continue and complete the article which we started last month 
describing how to design and develop your own game program. In this 
part we cover user defined characters and tlieir movement on the 
screen, and complete the game with a simple scoring system. 



The first task this month is to work 
out how to draw the parcels. Because 
these are fairly small, we shall use 
user-defined characters rather than 
Draw and Plot routines. The character 
is defined on an 8 by 8 matrix. We have 
to draw parcels in three different 
sizes, so we will choose these to be 
three by three, four by four, and five 
by five. The reason for these 
particular sizes is explained shortly 
(and illustrated below) . In order to 
present a more attractive ga-ne, we will 
arrange for each parcel to move across 
the sky on a toboggan. The toboggan is 
made up of two user defined characters 
as shown in the diagram. 




skeleton of which we wrote last month 
in lines 1200 and 1290. Let's start by 
defining the toboggan. We then have as 
follows 



X :_ 




: : 


' f- ~~ ~ 




.. 





Z-t l 




~ i 


:__±___ j 





large 
parcel 



toboggan 



The characters for the three sizes 
of parcel are designed so that each 
parcel appears to rest neatly on the 
rear of the toboggan when the two 
characters are superimposed. Again, 
with something of this kind, a certain 
degree of trial and error is necessary 
to achieve results that look best on 
the screen. In practice, either use 
paper and pencil (as in the diagrams 
here) or the character definer on our 
introductory cassette, to design the 
characters in the first place. The 
character definitions are all contained 
in the procedure PROCchars, the 



1200 DEF PROCchars 

1210 VDU23, 224, 0,0, 0,48, 72, 71, 32, 31 
1220 VDU23, 225, 0,0, 0,0, 0,255, 1,253 
1290 ENDPROC 

Refer to our series on Electron 
graphics, in tnis and the previous two 
issues of ELBUG, for more information 
on the VDU 23 command and the 
definition of your own characters. 

If the instructions above are typed 
into your Electron, you can test them 

in immediate mode as follows. First 
select the correct graphics mode: 

MODE 2 <return> 
Then define the two characters: 

PROCchars <return> 
You can now display the toboggan by 
typing: 

PRINT CHR$224;CHRS275 <return> 

If you find that your first attempt at 
defining characters is not successful, 
then you can redefine them and repeat 
the steps above. Assuming that our 
definitions in lines 1210 and 1220 are 
alright, we can now define the parcels 
themselves, so that they rest neatly on 
the toboggan: 
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1230 VDU23, 226,248,1 36, 136, 136,248, 
0,0,0 

1240 VDU23, 227,0, 240,1 44, 144, 240,0, 
0,0 

1250 70023,228,0,0,224,160,224,0,0, 





Again you can 
mode by typing: 



test this in immediate 



PRCCchars <return> 
PRINT CHR$226 <return> 
PRINT CHR$227 <return> 
PRINT CHRS228 <return> 

The diagram above should make the 
connections between the various shapes 
clear. The procedure PRCCchars is now 
complete . 



This procedure will eventually have to 
look for keyboard input, the dropping 
of a parcel, our success or failure in 
getting the parcel into a chimney, and 
the scoring. At the moment, we are 
only concerned with moving the toboggan 
plus parcel across the screen, and we 
will put this as a procedure PROGuove, 
and call it as the first step in 
PROCplay : 

1410 PROCmove 

What we have to do now is to define 
PROQnove, and we will do this starting 
at line 1600, so that it follows the 
last procedure already defined 
(PRQChouse) . In order to display the 
characters which we have defined, we 
need to specify a position in terms of 
the character positions and lines on 
the screen. We will use the variables 
AX% and AY% for this purpose, and these 
will have to be set initially. Since 
the game works in mode 2, there will be 
20 character positions across the 
screen, numbered from to 19 (from 
left to right) . Initially we shall set 
AX%=19 and AY%=RND(10). This will 
allow AY% (and hence the toboggan) to 
vary randomly in height within lines 1 
to 10 of the screen. 



The next step in developing this 
game is to write the instructions that 
will make the toboggan move across the 
screen from right to left carrying one 
of the three sizes of parcel, chosen 
randomly. We have already defined, in 
outline, a procedure called PROCplay 
which the program calls repeatedly 
until the game is over. For 
convenience, this part of the program 
is repeated below: 




this position 
is AX% f AY% 



160 REPEAT 

170 PROCplay 

180 UNTIL over% 

190 END 

The procedure PROCplay is defined at 
line 1400 but at the moment is empty, 
viz: 



These initial values can be set up in 
PROCsetup as: 

1030 AX%=19:AY%=RND(10) 



1400 DEF PROCplay 
1490 ENDPROC 



Every time that we call PROCmove, we 
will need to reduce AX% by 1 (to 
produce movement across the screen) , 
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and display the toboggan at the new 
position. Thus the first three lines 
of PROCmove will be 

1 600 DEF PROCmove 

1610 AX%=AX%-1 

1620 PRINT TAB(AX%,AY%);CHR$224;CHR 

?225;CHRS32 

Note the space character at the end, 
which will automatically erase the 
previous CHRS225 (end of toboggan) on 
the screen. This technique for moving 
objects has been described in the 
series on Electron graphics. We could 
have streamlined this section by 
defining the toboggan as a string 
variable in PRCCsetup 

1035 toboggan$=CHR$224+CHRS225+CHR$ 

32 

and rewriting line 1620 as 

1620 PRINT TAB(AX%,AY%), -toboggans 

Tnis makes no obvious difference to the 
running of the program, but makes it 
more readable. If you run the whole 
program at this point, you should see 
the three houses displayed on the 
screen and the toboggan should move, 
once only, across the screen - we 
haven't yet done anything to return the 
toboggan to the right hand side of tne 
screen. 

Now we must make a parcel appear on 
the toboggan as it moves. We have 
defined the parcel characters so that 
they fit neatly on the toboggan, but 
unfortunately, when using PRINT, if you 
print one character over another, the 
first character is completely replaced 
by the second. What we require is for 
both characters to remain, combined 
together. We can achieve this by 
combining text and graphics together. 

Normally, there are separate text 
and graphics cursors, although this is 
not always very obvious, the text 
cursor being moved by the PRINT and TAB 
instructions and the graphics cursor 
being moved by the MOVE, DRAW and PLOT 
instructions. By using the command 
VDU5, the two cursors are combined, and 
text can be printed at any graphics 
position on the screen (0 to 1279 
horizontally, to 1023 vertically) . 
Tnis has the added advantage, that if 



two characters are plotted (or printed) 
in the same position, then a 
combination of the two characters is 
seen on the screen rather than just the 
last one printed. This is just what we 
need for our game. 

What we must do therefore, is 
convert our positions AX% and AY% into 
corresponding graphics co-ordinates, 
remembering that in mode 2, a character 
has a width of 64 and a height of 32 in 
graphics units. The formulae for this 
are: 

PX%=AX%*64 

PY%=1024-(AY%*32) 

where PX% and PY% are the horizontal 
and vertical positions of the toboggan 
on the screen. 

In text mode, you count downwards 
from on the screen, while in graphics 

mode you count upwards from 0. The 
parcel is actually placed over the 
second character of the toboggan (+32 
horizontally) and moved down slightly 
(-4) as this looked better when viewed 
on the screen. 

Add the following lines to the 
program: 

1040 parcel = RND(3)+225 

1630 PX%=AX%*64:PY%=1024-(AY%*32):V 
DU5:(X:OL0,parcel-225:MOVE PX%+32,PY%-4: 
VDUparcel:VDU4 

Line 1040 is part of PROCsetup and 
randomly selects one of the three 
parcel characters. This is used in 
line 1630, firstly to specify the 
colour of the parcel using the OCOL 
command, and secondly as the character 
to be printed using VDUparcel. VDU4 at 
the end of the instruction separates 
once again the text and graphics 
cursors. 

We can now complete the definition 
of PROCmove by adding the following 
lines: 

1640 IFAX%=1 THEN AX%=1 9:PRINTTAB(1 
,AY%) ;CHR$32;CHR$32:AY%=RND(10) 
1650 ENDPROC 

This ensures that the toboggan is 
completely erased when it reaches the 
left hand side of the screen (AX%=1 ) 
and that AX% and AY% are set to new 
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values so that the toboggan reappears 
at the right hand edge of the screen, 
and at a different height. This should 
now be visible if you run the program 
that we have built up so far. 

Before continuing, it would be 
useful to complete the procedure 
PROCsetup. The final version of this 
procedure, is as follows: 

1000 DEF PROCsetup 

1010 score%=0:miss%=0 

1020 drop%=FALSE:over%=FALSE 

1030 AX%=19:AY%=RND(10) 

1040 parcel=RND(3) +225 

1050 VDU23,1,0;0;0;0; 

1090 ENDPROC 

All these steps are performed just once 
at the start of the program when 
PROCsetup is called. The variables, 
score% and miss%, will count the score 
and the number of misses. The variable 
drop% will be set TRUE when a parcel 
starts falling, and the variable over% 
will be set TRUE when the game is over. 
The VDU23 command in line 1050 removes 
the flashing cursor from the screen, a 
very useful facility in any game like 
ours. The other instructions have 
already been described. 

Now back to the game. We want to 
use the space bar as the signal for 
dropping a parcel. Therefore, in our 
procedure PROCplay, we need to test for 
this, and if it happens, set drop%=TRUE 
and make the parcel appear to drop 
downwards. Since the movement of the 
parcel will be different when falling 
to that of the toboggan, two new 
variables, FX% and FY%, are needed to 
represent the position of the falling 
parcel. We will also create a further 
procedure, PROCdrop, to control the 
movement of the falling parcel in the 
same way that PROGnove controls the 
horizontal movement on the screen. We 
can now complete PROCplay and the full 
procedure is as follows: 

1400 DEF PROCplay 

1410 PRCCmove 

1420 IF INKEY-99 AND NOT drop% THEN 
drop%=TRUE:FX%=AX%:FY%=AY% 

1430 IF drop! THEN PROCdrop ELSE FOR 
W=l TO 10: NEXT 

1440 PRINT TAB(10,0);score%;SPC(5) 

1490 ENDPROC 



INKEY-99 tests whether the space bar is 
pressed at that moment and that the 
parcel is not already dropping. If 
this is true, then drop% is set TRUE 
and we initialise the position of the 
falling parcel as its present position. 
At line 1430, the FOR-NEXT loop builds 
in a short delay to balance the time 
taken by the procedure PRCCdrop so that 
the toboggan appears to move at the 
same speed whether the parcel is 
falling or not. Finally, the PRINT 
instruction places the current score on 
the screen, followed by five spaces so 
that any previous, and possibly longer, 
score is completely erased. 

We also need to amend one line in 
the procedure PROQnove so that once a 
parcel starts falling it no longer 
appears on the toboggan. This is very 
easy to achieve by turning the existing 
instruction at this line into an 
IF-THEN statement: 

1630 IF NOT drop% THEN PX%=AX%*64 : 
PY%=1024-(AY%*32) :VDU5: (TOL0,parcel-25 
5:M0VE PX%+32 ,PY%-4:VDUparcel:VDU4 



by 



now 



As you will appreciate 
describing how to develop a program 
takes up far more space than the 
program itself. However, if you have 
managed to keep up so far, we have only 
two more procedures to describe in 
detail. First of all, here is the 
procedure to drop the parcel: 

1700 DEF PROCdrop 

1710 FY%=FY%+1 

1720 COLOUR parcel-225 

1730 PRINT TAB(FX%,FY%);CHR$parcel 

1740 PRINT TAB(FX%,FY%-1);CHR$32 

1750 COLOUR 7 

1760 IF FY%>19THEN PRCCtest:parcel = 
RND(3)+225:drop%=FALSE:PRINT TAB(FX%,FY 
%) ;CHR$32 

1790 ENDROC 

In this procedure, FY% is increased 
by 1 to move the parcel down and the 
colour is set according to the size of 
parcel. The parcel character is then 
displayed on the screen and the 
previous position overwritten with a 
space. Since the parcel character is 
not mixed with any other character, the 
simpler 'PRINT TAB' instruction is 
quite adequate here. Line 1750 
restores the text colour to white, for 
displaying the score later. 
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The most complicated instruction in 
this procedure is the one at line 1760. 
This checks to see if the falling 
parcel has reached chimney height and 
then calls PRCCtest to see if the 
parcel will enter the chimney or miss. 
It also re-initialises the program 
ready to send the next parcel across 
the screen. 

Lastly, we must produce a procedure 
to test whether our falling parcel will 
fall within a chimney. This is 
complicated by the fact that both 
parcels and cnimneys are of three 
different sizes. The smallest parcel 
will fit in all three chimneys, but the 
largest parcel will only fit in the 
largest chimney. In addition, the 
scoring is varied as well. The 
procedure to do this is as follows: 



1800 
1810 
20 

1820 

PROC 
1830 

ROC 

1840 

ROC 

1850 
1860 
1870 
1890 



DEF PROC test 

ON .parcel-225 GOTO 1840,1830,18 

IF FX%=15 score%= score%+50:END 

IF FX%=9 score%= score%+25:ENDP 

IF FX%=3 score%= score%+10:ENDP 

score%=score%-5:miss%=miss%+l 
IF score%<0 THEN score%=0 
IF miss%>20 THEN over%=TRUE 
ENDPROC 



The numbers 15,9 and 3 in lines 1320 to 
1840 are the horizontal positions of 
the chimneys in character terms. These 
numbers were calculated from the 
graphics co-ordinates of the houses by 
remembering that one character is 
equivalent to 64 graphics units 
horizontally. The ON-GOTO statement 
selects the next instruction depending 
on parcel size. If the parcel is of 
the smallest size, we test all three 
chimneys, if the middle size we test 
the centre and left chimney, and if the 
largest size we test only the left most 
and largest chimney. The order of 



these three statements is critical to 
the correct working of the game. If 
the parcel fits a chimney, the score is 
increased and no further action takes 
place. 

The instructions from line 1850 
onwards deal with the situation when a 
parcel misses or is too large to fit in 
the chimney aimed for. In this case 
the score is decreased by 5, the count 
of misses is increased by 1 and the 
routine tests to see if the maximum of 
20 misses has been exceeded, in which 
case the game is over. We also need to 
check, in line 1860, that we haven't 
reduced the score to a negative value. 
If that happens the score is just 
returned to zero. 

You should now find that the whole 
game, as originally described at the 
start of last month's article, now 
works. The full listing of the game 
that we also published in last month's 
issue contained two enhancements to the 
program we have described. A procedure 
called PROCnoise was defined in lines 
1900 to 1990, and used in PRCCtest, so 
that when a parcel successfully enters 
a chimney, a pleasant noise is heard. 
The envelope for this noise is defined 
in PRCCsetup. The noise routine was 
developed by experimenting with the 
SOUND and ENVELOPE commands (see page 
116 of the User Guide - see also Sound 
Wizard in the first issue of ELBUG) . 

Secondly, when the game is over, a 
procedure PROCend is called, which just 
clears the screen and displays the 
final score. Both of the procedures, 
PROCfrontpage and PROCend could be 
improved further, to provide more 
information. 

This completes our two part article. 
There are many ideas and techniques 
that have been described here, and you 
may well find it helpful to return to 
this when you are writing your own 
programs. 



HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS 



REPEAT DELAYS 



The delay before a key repeats, when held down, can be changed using *FXU,d. The 



delay, 'd', 
*FXl2,r. The 
Electron on. 



is in 100ths of a second. Likewise, the repeat rate is changed by 
repeat rate ' r' is also in 100ths of a second. When you switch the 
*r' and 'd* are automatically set to 8 and 32 respectively. 
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BAD PROGRAM LISTER 

by Elizabeth Hanson 



This program will list any Basic program (or any text file) 
stored in the computer, in a completely readable format, very 
similar to that produced by the LIST command. Its particular value 
is in listing programs which the command LIST will not work upon; ie 
programs which have become 'damaged' in the computer, resulting in 
the familiar response, 'Bad Program'. In this respect it forms a 
useful adjunct to the program 'RESCUE', which was published in last 
month's issue of ELBUG. In fact, LISTER will even list the remains 
of a program that has been partly overwritten, by loading in another 
shorter program on top of it. 



LISTER was written for use with the 
RESCUE program published last month in 
ELBUG. RESCUE is an extremely powerful 
utility which will miraculously heal 
'bad programs' . 

LISTER allows you to examine a 'bad 
program' before attempting to repair 
it, though it has many other 
applications, such as reading partially 
overwritten programs. LISTER works by 
looking at the Basic tokens as they are 
stored in memory, and converting them 
back to their original keyword format. 
The program is quite small, just under 
two blocks in length, as it uses the 
look-up table in the Basic ROM at &8071 
to make the conversions. 

LISTER will not convert the line 
numbers following a GOTO, as these are 
stored in code within the computer to 
save space. Note that for the sake of 
speed (and the irregularity of the way 
the tokens are set up in memory) , the 
word "AND" is printed as "ND". 

USING LISTER 

Type in the program and save a copy, 
before use, as you would any Basic 
program. 

Assuming that you want to use LISTER 
to list a program already in the 
computer , you wi 1 1 need to change PAGE 
before you load in LISTER. This avoids 
overwriting the program already 
resident in memory. Proceed as 

follows : 



M0DE6 

PAGE=&5B00 

CHAIN"LISTER" 



<return> 
<return> 
<return> 



prompt for you to provide a starting 
address for it to list from. Itiis will 
normally be &E00 (in hexadecimal), but 
you can type in any address that you 
want. The listing will then start and 
will be printed in Ik blocks. After 
each block the computer will bleep, and 
wait for you to press any key. It will 
then display the current address in hex 
followed by the next Ik of the program, 
and will continue in this way until you 
stop the program by pressing Escape. 



Bad Program Lister. 




—=^^========— —==——= 




Start Address?&E00 




E00 




10 REM PROGRAM COLOURED CHRS 1 




00AUTHOR D.Graham 




30 REM Version E.10 




40 REM ELBUG Jan/Feb '84 




50 REM Program subject to copyright 




60 : 





10 
20 
30 
40 
50 
60 
70 
80 
90 



REM PROGRAM BAD PROGRAM LISTER 

REM VERSION El -1 

REM AUTHOR Elizabeth Hanson 

REM ELBUG JAN/FEB 1984 

REM PROGRAM SUBJECT TO COPYRIGHT. 



LISTER will then run and print 
"Start Address ?" on the screen as a 



ON ERROR QDTO 280 

M0DE6 

PRINTTAB(10)"Bad Program Lister." 
100 PRINTTAB(10);STRING$(19,"=") 
110 VDU28, 0,24, 39,3 
120 INPUT'"Start Address", AS 
130 @%=1:J%=255:A%=EVAL(A$) 
140 REPEAT: PRINT"" ";"A% 
150 FORI%=0TOJ%:X%=A%?I% 
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160 IFX%=&0D PRINT'A%?(I%+1)*256+A%?( 
I%+2);SPC1;:I%=I%+3:GOTO190 
170 IFX%>&7F ANDXK&FF PROCLrGOTOl 90 
180 IFX%>31PRINTCHR$(X%) ;ELS£PRINT~X% 



E 



190 NEXT 

200 A%=A%+J%+1:VDU7:B$=GET$:UNTILFALS 

END 



210 
220 
230 
240 



DEFPR0CL:K%=-1 :T%=&3071 
REPEAT: K%=K%+1 :Y%=T%?K1>:UNTILY%=X 
%ORK%>&300:L%=K% 

250 REPEAT:K%=K%-1:Z%=T%?K%:UNTILZ%>& 

7F ORK%<0 



260 IFT%?(K%+2)<40K%=K%+3ELSEK%=K%+2 

270 REPEAT: PRINTCHR? (T%?K%) ; : K%=K%+1 : 
UNT I LK%>=L% : ENDPROC 

280 ON ERROR OFF 

290 MODE 6 

300 IF ERR017 REPORT: PRINT" at line 
" ; ERL 

310 END 



This program is adapted from a version 
for the BBC micro that was first 
published in BEEBUG Vol.2 No. 3. 



RETURN OF THE DIAMOND — A MAP 



Last month we published our very own adventure game called "The 

Return of the Diamond'. For those of you who are still lost we now 

provide a map showing all the different locations. Please also read 

"the Editorial in this issue regarding the program for 'The Return of 

the Diamond' , 



START 



HUT 

hammer 

1 




GARDEN 


2 




SHRUBBERY 

knife 

3 


















PATH 
grenl in 




LANE 
lamp 


5 




FOREST 

6 




















DERD END 

7 


1 


DIAMOND 
CASTLE 

FINISH 


8 




PASSAGE 

pixie 

9 



MAP OF RETURN OF THE DIAMOHD 
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DIVE BOMBER 

by N. Mallinson 



Just imagine the thrill as you 
speed your way to your target, your 
scarf billowing in the wind, with 
the smut from the spluttering engine 
clouding your vision through your 
goggles. Your mission is simple, but 
dangerous. It is to destroy as many 
targets as possible, whilst avoiding 
the flak from the guns on the 
ground. 

Well, it's not quite Biggies, but 
in this game you do have to destroy 
the various fuel and ammunition 
dumps, while avoiding the 

anti-aircraft guns. There are 100 
targets on each mission, after which 
you may land. If you have reached 
the required score for that mission, 
then you are sent out on a new 
sortie, but otherwise the game ends. 





YM 



fc%^*B 



You have three controls: 
:=up 
/=down 

Z=release bomb 
Bombs may only be released when the 
plane is in a dive. You will find that 
bombing attacks can be made much more 
accurately from a low-level approach, 
but then you will need to be 
nimble-fingered to avoid crashing; and 
the anti-aircraft barrages are a good 
deal more accurate when you are flying 
low. 

Good luck Biggies! 

10 REM PROGRAM DIVE BOMBER 

20 REM AUTHOR N. MALLINSON 

30 REM VERSION El. 4 

40 REM ELBUG JAN/FEB 1984 

50 REM PROGRAM SUBJECT TO COPYRIGHT 

60: 
100 ON ERROR GOTO 2770 
110 MODE 5 
120 VDU 23,1,0;0;0;0; 



130 PROCtitle 

140 MODE 4 

150 VDU 19,0,4,0,0,0 

160 PROCinit 

170 PROCinstructions 

180 PROCnewgame 

190 REPEAT 

200 MODE 4 

210 VDU 19,0,4,0,0,0 

220 VDU 23,1,0;0;0;0;:CLS 

230 PROCnewrun 

240 PRINTTAB(1 ,7) "PRESS SPACE BAR TO 
START" 

250 REPEAT:VDU 7:UNTIL GET=32 

260 PRINTTAB{ 1,7) "TAKE OFF !";SPC(14) 
:VDU 7 

270 REPEAT 

280 IF F%=0 GOTO 320 

290 IF ?(22775+320*F%)<>0 THEN PROCbo 
mbhit:GOTO 320 

300 F%=F%+1:IF?(22775+320*F%)<>0 THEN 
PROCbombhit:GOTO 320 

310 PRINTTAB(30,F%-1);SPC1;TAB(30,F%) 
;CHR$(227) -. 
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320 IF X%=0 THEN L%=225 ELSE X%=X%-1 : 

SOUND 0,-15, 2, 5: IF X%=0 THEN PRINTTAB(1 
,7);SPC(24):PRINTTAB(30,K%);CHRS(225):G 

OTO 510 ELSE GOTO 510 

330 IF INKEY(-73) AND K%>6 THEN L%=22 

4:N%=K%-1 

340 IF INKEY(-105) THEN L%=226:N%=K%+ 

1 

350 IF ?(22775+320*N%)<>0 THEN PROCpl 

anehit(N%):GOTO 690 

360 PRINTTAB(30,K%);SPC1;TAB(30,N%);C 
HR$(L%):K%=N% 

370 SOUND l,-15,32+40*(L%-224),5 

380 IF INKEY(-98) AND F%=0 AND L%=226 
THEN F%=K%+1 ELSE GOTO 410 

390 IF ?(22775+320*F%)<>0 THEN PROCbo 
mbhit:GOTO 410 

400 PRINTTAB ( 30, F%);CHR$< 227) 

410 IF T%=0 AND U%>0 THEN U%=U%+1 

420 IF U%>30 OR V%<7 THEN PRINTTAB (U% 
,V%);SPC1:T%=0:U%=3 

430 IF T%=1 THEN PRINTTAB(U%,V%) ;SPC1 
:IF V%>6 AND U%<31 THEN U%=U%+1 :V%=V%-1 
:PRINTTAB(U%,V%);CHRS(240) 

440 IF U%>0 AND T%=0 AND 27-U%+I%<=V% 
-K% THEM T%=1:PRINTTAB(U%,V%);CHR${240) 
:SOUND &11,-1,0,0:SOUND &10,-15,4,8 

450 IF G%=232 AND U%=0 AND B%>0 THEN 

U%=1 :V%=H%-1 : I%=RND(5) 

460 IF D%=0 AND B%>0 THEN 

470 IF B%>30 OR C%<7 THEN 
,C%);SPC1:D%=0:B%=0 

480 IF D%=1 THEN PRINTTAB(B%,C%) ;SPC1 
:IF C%>6 AND B%<31 THEN B%=B%+1 :C%=C%-1 
: PRINTTAB (B%,C%);CHR$ (240) 

490 IF B%>0 AND D%=0 AND 28-B%+E%«% 
-K%+(l+C%-K%)*(225-L%) THEN D%=1:PRINTT 
A6(B%,C%);CHRS (240): SOUND &1 0,-1 5,4,2 

500 IF G%=232 AND B%=0 THEN B%=1 :C%=H 

%-l:E%=RND(3) 
.510 A%=0:IF Z%<1 THEN G%=237:Z%=Z%-1 : 

GarO 610 

520 IF G%=235 THEN A%=A%-1 

530 IF H%>28 THEN G%=235:GOTO 590 



=B%+1 

PRINTTAB(B% 



Jse MOMr aircr*M to bortb 9n + i+y 

*il*tioP*f *nd fflorfi 



SUPPLV DUMP - il - 28 

Aft OUM - £ - 4 

COHHUHICflTlOHS CENTRE - J_ - 9 

COWHAND CENTRE - A - 1** 

If you re*ch or surpass the required 
score you oet another run. 

Successive runs become harder a> 
gane speeds up, ground nay be higher & 
required score increases . 

If you crash or are shot down. oe?*e 
ends. 



RIRCRRFT CLIMB - 
AIRCRAFT DIVC 



RELERSE 8QMB 



- *Z* (when in dlve> 



HIGH SCORE TR9LE <V^K> T 



540 
590 
550 
560 
R%=0 
570 
580 
590 
600 



IF H%<Y% THEN G%=234:A%=A%+l:GOTO 

R%=RND(127):G%=229 

REPEAT:R%=R% DIV 2:G%=G%+1 :UNTIL 



THEN G%=G%-RND(4) DIV 4 
THEN A%=A%+1 



IF G%=235 

IF G%=234 

H%=H%+A% 

IF G%<234 AND Z%>0 THEN Z%=Z%-1:P 

RINTTAB(31,5);Z%;SPC1 

610 CALL SCRLR 

620 PRINTTAB (0,H%);CHRS(G%) 

630 IF X%<>0 GOTO 680 

640 IF ?<22775+320*K%)<>0 THEN PROCpl 

anehit(K%):GOTO 690 

650 IF D%=1 THEN PRINTTAB(B%,C%) ;SPC1 

:IF C%>6 AND B%<31 THEN 3%=B%+1 :C%=C%-1 

: PRINTTAB (B%,C%) ;CHR$ (240) 

660 IF T%=1 THEN PRINTTAB(U%,V%) ;SPC1 

:IF V%>6 AND U%<31 THEN U%=U%+1 :V%=V%-1 

: PRINTTAB (U%,V%) ;CHR$ (240) 

670 IF J%>0 THEN J%=J%-1:IF J%<1 THEN 

ch%=&l 

680 FOR M%=1 TO DL%:NEXT 

690 UNTIL Z%<-40 

700 IF Z%>-50 THEN PROClanding ELSE I 

F L%=242 THEN PRINTTAB(1 ,7) "SHOTDCWN I" 

ELSE PRINTTAB(1 ,7) "CRASHED !" 

710 TIME=0: REPEAT UNTIL TIME>100 

720 *FX 15.0 

730 UNTIL Z%=-50 

740 PROChighscores:PRINTTAB(3,M%) "ANO 

THER GAME (Y/N) ?" 

750 VDU 7:I$=GET$:IF I$="Y" THEN CLS: 

GOTO 180 

760 IF I$<>"N" GOTO 750 

770 *FX15,0 

780 MODE 6 

790 END 

800: 
1000 DEF PROCbombhit 

1010 IF ?(22774+320*F%)=32 THEN PRINTT 
AB(30,F%);SPC1:GOTO 1090 
1020 IF ?(22774+320*F%)<100 THEN SOUND 
&10,-15,4,10:J%=1:GOTO 1070 
1030 Q%=10*?(22769+320*F%) 
1040 W%=W%+Q%:S%=S%+Q% 
1050 PRINTTAB(7,3);S%;TAB(25,3);W% 

1060 SOUND &10,-15,4,20:J%=5 
1070 PRINTTAB(30,F%);CHR$(228) 

1080 ch%=&ll 

1090 IF Fi-IOKI THEN PRINTTAB(30,F%-1 

);SPC1 
1100 F%=0 
1110 ENDPROC 

1120: 

1130 DEF PROClanding 

1140 IF F%>0 THEN PRINTTAB < 30, F%) ;SPC1 

: SOUND &1 1,0, 0,1 
1150 PRINTTAB (1,7) "LANDING 

1160 REPEAT 



tf T "L 



II 
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1170 IF K%<H%-1 THEN K%=K%+1 : PRINTTAB ( 
30,K%-1 ) ;SPC1 ;TAB(30,K%) ;CMR$(226) :SOUN 
D &10,-15,3,5 

1180 FOR M%=1 TO 2*DL%:NEXT 

1190 IF K%=H%-1 THEN PRINTTAB(30,K%) ;C 
HR5(243) 

1200 UNTIL K%=H%-1 

1210 IF W%>=RS% THEN PRINTTAB (1 ,7) "MIS 
SION ACCOMPLISHED !" ELSE PRINTTAB(1 ,7) 
"FAILED REQUIRED SCORE." :Z%=-50 

1220 S%=S%+100:PRINTTAB(7,3);S% 

1230 FOR M%=0 TO 10000: NEXT 

1240 ENDPROC 

1250: 

1260 DEF PROCinit 

1270 DIM SET 400 

1280 FOR PASS=G TO 1 

1290 P%=SET 

1300 [ 

1310 OPT PASS*2 

1320 .SET LDA #&38:STA &74:LDA #&72: 

STA &75\set start 

1330 LDX #39:LDA #0\clear base 

move store 

1340 .clear STA SET+300,X:DEX 

1350 BPL clear :RTS\end when all 

done 

1360 .SCRLR STA SET+300\store A% .-nove 

1370 LDA &74:STA &70:LDA &75:ST 

A &71\low base=start 
1380 LDX #39\index for 39 squar 

es 

1390 .sqr LDA #0:LDY #7\blank out sq 
uare 

1400 .blank STA(&70) ,Y:DEY:BPL blank 

1410 LDA SET+300,X:STA SET+301 , 

X\shift move up store 

1420 BEQ level :BMI up\detect mo 

ve 

1430 LDA &70:CLC:ADC #&38:STA & 

70\move down 

1440 LDA &71 :ADC #1:STA &71 :CLC 

:BCC ind 

1450 .up LDA &70:SEC:SBC #&48:STA & 

70\move up 



1460 LDA 671 t SBC #1:STA &71:CLC 

:BCC ind 

1470 .level LDA &70:SfcC:SBC #8:STA &70 
\back one square 

1480 LDA 671: SBC #0:STA &71 ■ 

1490 .and DEX:BPL sethb:RTS\end if i 
ndex neg 

1500 .sethb LDA &70:CLC:ACC #8:STA &72 
\high base=low base+8 

1510 LDA &71 :ADC #0:STA &73 

1520 CPX #38:BNE trans\far righ 

t square? 

1530 LDA &72:STA &74:LDA &73:ST 

A &75:\yes-start=high base 

1540 .trans LDY #7\transfer data 

1550 .byte LDA(&70) ,Y:STA(&72) ,Y:DEY: 
BPL byte 

1560 SMI sqr\go do next square 

1570 ] 

1580 NEXT 

1590 CLS 

1600 VDU23, 224, 0,80,40,16, 8, 5, 2,0: REM 
climb plane 

1610 VDU23, 225, 0,0, 0,0, 97, 255, 0,0: REM 
level plane 

1620 VDU23,226,4, 2,4,40,80, 32, 64, 0:REM 

dive plane 

1630 VDU23, 227, 0,1 6, 8, 20, 32, 64, 0,0: REM 

bomb 

1640 VDU23, 228, 0,1 46, 84, 56, 254, 56, 84,1 
46:REM expl 

1 650 VDU23, 230, 16,16,16, 1 6, 254 , 1 98, 254 
,255: REM cmd cen 

1660 VDU23,231,8,8,8,8,8,232,232,255:R 
EM cms cen 

1670 VDU23, 232, 2, 4, 104, 48, 120, 248, 11 2, 
255: REM gun 

1680 VDU23, 233,0, 2, 102, 102, 102, 102, 102 
,255: REM dump 

1690 VDU23, 234, 1,2, 4, 8, 16, 32, 64, 128: RE 
M gnd down 

1700 VDU23, 235, 128, 64, 32, 16, 8, 4, 2,1: RE 
M gnd up 

1710 VDU23,236,0,0,0,G,0,0,0,255:REM g 
nd level 

1720 VDU23, 237, 255, 129, 129, 129, 129, 129 
,65,129:REM runway 

1730 VDU23, 240,0,0,0,0,0,0, 32, 64:REM s 
hot 

1740 VDU23,241,8,8,8,8,8,8,0,0:REM tra 
il 

1750 VDU23, 242,24, 8,8,8, 8, 24, 24, 8:REM 
hit plane 

1760 VDU23, 243, 0,0, 0,0, 0,97, 255, 72: REM 

taxi plane 

1770 REM * define envelopes * 

1780 ENVELOPE 1,130,5,3,5,50,60,70,0,0 

,0,0,0,0 
1790 ENVELOPE 2,128,10,0,0,6,0,0,0,0,0 

,0,0,0 ^ 
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1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 



1800 DIM HSC%(6),NAME$(6) 
1810 FOR M%=0 TO 6:HSC%(M%)=0:NAME$(M% 
)=STRING$(11,CHR$32) 
1820 ENDPRCC 
1830: 

1840 DEF PROCnewgame 
1850 DL%=392:S%=0:Y%=21 
1860 RS*=700:RN%=0 
1870 ENDPROC 

1880: 

1890 DEF PRCCnewrun 

1900 FOR M%=0 TO 33 

1910 PRINTTAB (M%, 5) ;CHR$ (236) ;TAB(M%, 2 

0);CHR${237) 
1920 NEXT 

CALL SET 

IF RS%<2500 THEN RS%=RS%+100 

IF DL%>2 THEN DL%=DL%-30 

RN%=RN%+1 

IF Y%>10 THEN Y%=Y%-1 

G%=236:H%=20:K%=19:L%=243:N%=K% 

F%=0:B%=0:D%=0:U%=0:T%=0 

J%=0:ch%=&l 0:W%=0: Z%=1 00:X%=1 5 

PRINTTAB(7,1)"GAME";TAB(17,1)"REQ 

D. ";TAB(25,i)"RUN";TAB (32,1) "HIGH" ;TAB( 
0,3)"SCORE";TAB(7,3);S%;TAB(17,3);RS%;T 

AB(25,3);W%;TAB(32,3);HSC%(0) 

2020 PRINTTAB<3,5)" RUN ";RN%;SFC1 ;TA 
B(21,5)" TARGETS ";Z%;SK:i 

2030 PRINTTAB(30,K%);CHR$(L%) 

2040 R%=RND(-TIME) 

2050 ENDPROC 

2060: 

2070 DEF PRCCplanehit(k%) 

2080 Z%=-50 

2090 IF ?(22775+320*k%)<>64 THEN PRINT 
TAB ( 30 , k%+225-L%) ; SPC1 ; TAB ( 30 , k% ) ;CHR$ ( 
228):SOUND &1 0,-1 5,6, 20:ENDPROC 

2100 SOUND 6,10,-15,6,20 

2110 L%=242 

2120 REPEAT 

2130 PRINTTAB(30,k%);CHR$(242);TAB{30, 
k%-t);CHR$(241) 

2140 k%=k%+l:pk%=?(22775+320*K%) 

2150 FOR M%=1 TO 1000: NEXT 

2160 UNTIL pk%<>0 AND pk%<>64 

2170 PRINTTAB(30,k%);CHRS(228);TAB(30, 
k%-l);CHRS{241) 

2180 SOUND 6.10,3,6,40 

2190 ENDPRCC 

2200: 

2210 DEF PROCinstructions 

2220 CLS 

2230 PRINT'TAB(2)"Use your aircraft to 

bomb enemy";SPC(9) ;"installations, and 

score:" 

2240 PRINT'TAB(4) n SUPPLY DUMP";SPC(1 3) 
;;CHRS(233);" 20" 

2250 PRINT'TAB(4)"AA GUN";SPC (1 8) ;CHR$ 
(232);" 40" 



2260 PRINT , TAB{4) "COMMUNICATIONS CENTR 
E";Src(3);CHR$(231);" 80" 
•2270 PRINT'TAB(4) "COMMAND CENTRE";SPC( 
10);CHR$(230);" 160" 

2280 PRINT , TAB(2)"If you reach or surp 
ass the required" ;SPC (4 ); "score, you wi 
11 get another run." 

2290 PRINT'TAB( 2) "Successive runs beco 
me harder as the";SPC(4) ;"game speeds u 
p, and the ground may" ;SFC (6) ; "become h 
igher, with an increase in";SPC(6) ;"the 

required score." 

2300 PRINl"TAB(2)"If you crash or are 
shot down, the";SPC(6) ;"ga-ne ends." 

2310 PRINT' TAB (4) "AIRCRAFT CLIMB";SPC( 
3);"':'" 

2320 PRINT'TAB (4) "AIRCRAFT DIVE";SPC(4 

2330 PRINT* TAB (4) "RELEASE BOMB";SPC(5) 
{"'Z' (when in dive) " 

2340 PRINT TAB (2, 29); "Press the Space 
bar to continue :"; 
2350 REPEAT UNTIL GET=32 
2360 ENDPRCC 
2370: 

2380 DEF PROCtitle 
2390 COLOUR 1 
2400 FOR M%=6 TO 10 STEP 4 

2410 PRINTTAB(5,M%);STRINGS(11,CHR$(61 
)):NEXT 
2420 COLOUR 2 

PRINTTAB (5,8); "DIVE-BOMBER" 

COLOUR 1 

PRINTTAB(10,16)"by" 

COLOUR 3 

PRINTTAB (5,1 8)"N. Mall inson" 

TIME=0:REPEAT UNTIL TIME>100 

ENDPROC 



2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500: 

2510 DEF PROCphstable 
2520 CLS 

2530 PRINTTAB (10, 4) "HIGH SCORE TABLE" 
2540 PRINTTAB(6,8)"No.";TAB(l 3,8) "NAME 
";TAB(25 / 8) "SCORE" 
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2550 M%=-1 

2560 REPEAT 

2570 M%=M%+1 

2580 IF HSC%(M%)=0 THEN UNTIL TRUE=TRU 
E ELSE PRINTTAB(6,11+2*M%);M%+1;TAB(12, 
11+2*M%);NAME$(M%);TAB{25,11+2*M%);HSC% 
(Ml): UNTIL M%=5 

2590 IF HSC%(0; 
"NO SCORE YET ! " 

2600 IF Z%=0 
UCTIONS (Y/N) 

2610 ENDPRCC 
2620: 

2630 DEF PRCChighscores 
2640 M%=6 
2650 REPEAT 
2660 M%=M%-1 

2670 IF S%>HSC%(M%) THEN HSC% (M%+1 ) =HS 
C% (Ml) : NAMES (M%+1 ) =NAMES (M%) :UNTIL M%=0 



THEN 



=0 THEN PRINTTAB(12,16) 
PRINTTAB(3,27)"INSTR 



ELSE M%=M%+1: UNTIL TRUE=TRUE 

2680 IF M%>5 THEN M%=9: ENDPRCC 

2690 CLS 

2700 PRINTTAB(l,7)"YOU ARE ON THE HIGH 

SCORE TABLE !" 

2710 PRINTTAB(3,12)"PLEASE INPUT YOUR 
NAME" "TAB(5)" (max. 10 letters)" 

2720 REPEAT: VDU7:PRINTTAB( 10,1 7) ;SPC(1 
5):INPUT TAB(10,17)"? "N$:UNTIL LEN(NS) 
<11 

2730 HSCI(M%)=S%:NAME$(M%)=NS 

2740 PROCphstable:M%=27 

2750 ENDPROC 

2760: 

2770 ON ERROR OFF: MODE 6 

2780 IF ERR017 REPORT: PRINT" at line 

" ; ERL 

2790 END 



HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINT 



SOUND SUPPRESSION 

Sound output can suppressed by the command *FX210,n where n is any non zero 
value. If n equals zero, then sound output is reinstated. 



LAST LINE NUMBER - Douglas Nunn 

To find out the highest line number in your current program, hold down both Shift 
and Control and press Escape twice. Release the Shift and Control keys, which will 
print up 'Escape at line xxx' where xxx is the last line number. 



t* 



t^ 



& 



^ 



Sia^a 



Snake is a very addictive, fast 
moving arcade game. The purpose of the 
game is to direct the snake around the 
screen, eating up the randomly placed 
objects. With every bite that it takes, 
the tail grows longer and the snake 
moves faster. Just to complicate 
things, there are also certain 
scattered obstacles which must be 
avoided. 

To even complete the first screen 
requires skill and concentration. 
Further frames use different shaped 
playing areas, which as well as adding 
variety, require much greater skill to 
complete. 



This game is much more exciting than 
many games of a similar nature, and 
once played, proves to be surprisingly 
compulsive. 




Snake costs £4.00 inc VAT. Please add 50p post & packing. 
Overseas orders: £5.50 inc post & packing - VAT not charged. 
Send order with membership number to: 
BEEBUGSOFT, P.O. Box 109, High Wycombe, Bucks HP! 1 2TD. 
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